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Einfiihrung in das Programmieren 
mit FORTH 




il. () 


1 Einfuhrung in das Programmieren mit FORTH 


In diesem Buch geht es urn die Programmiersprache FORTH und darum, 
-ie man in dieser auBerst vielseitigen Sprache Programme schrei- 
en kann. Wir machen Sie zuerst mit den grundlegenden Konzepten 
er Programmierung vertraut, die Sie dann zu sehr leis tungsf ahi- 
:en komplexen Prozeduren auszubauen lernen. 

lie modernen elektronischen Computer verfilgen liber erstaunliche 
Fahigkeiten. In ein paar Sekunden oder Minuten konnen sie Aufga- 
z-en erledigen, deren manuelle Bewaltigung ansonsten Monate Oder 
I ah re in Anspruch nehmen wurde . Computer steuern industrielle 
Fertigungsprozesse Oder iiberwachen medizinische Gerate in Not- 
: allstationen . Dennoch: Der Computer kann nicht denkenl Er kann 

-ediglich eine Folge von genauen Anweisungen befolgen, die den 
amen Programm tragt. In diesem Buch stellen wir eine Sprache - 
renannt FORTH - dar , mit der man Computer programmieren kann. Im 
ersten Kapitel befassen wir uns dazu mit ein paar grundlegenden 
r akten uber Computer und vergleichen auSerdem FORTH mit anderen 
Frogrammiersprachen . Das Kapitel unternimmt aber auch bereits die 
ersten "Programmierschritte" mit Ihnen, so daB Sie bereits Ihr 
arstes Programm schreiben konnen. 


1 .1 Grundlegendes uber Computer 


Hie wir uns dem Programmieren in FORTH zuwenden konnen, sollten 
-ir uns in groben Zugen mit dem Aufbau eines Computers vertraut 
z«achen. Zwar beziehen sich unsere Ausfuhrungen hauptsachlich auf 
w i:<ro- oder Personal Computer (das sind Computer, die auf einem 
sz-g. "Mikroprozessor" basieren) , im Prinzip entspricht aber deren 
Aufbau auch dem der wesentlich teureren (und leistungsstarkeren) 
Iro3computer . 

las Herzstuck eines Mikrocomputers ist die sog. CPU (Abkiirzung 
fir "central processing unit", wortlich "Zentrale Verarbeitungs- 
ainheit" oder "Zentraleinhei t" ) . Die CPU fiihrt alle logischen und 
arithmetischen Operationen aus , die der Computer beherrscht. Sie 
<ar.n z.B. zwei Zahlen zueinander addieren oder sie daraufhin un- 
zersuchen , ob sie gleich sind. AuBerdem verfiigen Computer uber 
amen Hauptspeicher ; darin werden die Programme gespeichert, die 
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die Funktionsweise des Rechners steuern, aber auch die Daten, mit 
denen diese Programme arbeiten. 


Der Hauptspeicher kann die CPU auBerst schnell mit Daten versor- 
gen, oftmals in Bruchteilen einer Mikrosekunde (Millionstelsekun- 
de) . Diese Art von Speicher ist jedoch verhal tnismaBig teuer; 
auBerdem konnen die meisten Mikrocomputer nur mit einem begrenz- 
ten Umfang an Hauptspeicher arbeiten (bei 8-Bi t-Mikrocomputern 
sind das in der Regel SpeichergroBen von 64K) . Deshalb kann man 
den Hauptspeicher nicht zur Speicherung groSerer Datenmengen be- 
nutzen. Es kann z.B. sein, daB Sie liber mehrere Programme verfii- 
gen , die Sie bei verschiedenen Gelegenhei ten einsetzen wollen. Es 
ware nun auBerst unokonomisch , all diese Programme stets lm 
Hauptspeicher auf zubewahren , da dieser dadurch sehr bald voll wa- 
re. AuBerdem miiBten Sie Ihren Computer stets eingeschaltet las- 
sen, denn der Inhalt des Hauptspeichers geht verloren , wenn keine 
Spannung mehr anliegt. (Einige Computer verfiigen liber Speicher, 
die Inf ormationen auch dann noch behalten konnen, wenn der Compu- 
ter ausgeschaltet ist. Leider ist diese niitzliche Eigenheit bei 
den meisten Mikrocomputern nicht gegeben.) 

Ahnlich verhalt es sich mit der Speicherung von Daten. Stellen 
Sie sich einmal eine Bank vor, die liber 1 00000 Konten zu f iihren 
hat. Der Computer dieser Bank miiBte liber einen gigantischen 
Hauptspeicher verfiigen, urn alle Informationen iiber Kontobewegun- 
gen speichern zu konnen. Schon aus finanziellen Griinden scheidet 
also diese Losung aus. Deshalb bedient man sich bei der Speiche- 
rung von Comp uterda ten magnetischer Speichermedien . Es ist 
moglich, auf Magnetband eine groBe Menge von Informationen zu 
speichern. Bei kleineren Computern findet man fur diesen Zweck 
oft einen gewohnlichen Kassettenrecorder . Ein einziges Band (bzw. 
Kassette) kann eine Menge von Programmen aufnehmen; wenn Sie ei- 
nes dieser Programme laufen lassen wollen, dann lesen Sie es erst 
vom Band in den Hauptspeicher des Computers ein, von wo aus es 
der Computer dann ausfiihrt. Andere Speichermedien, die man zusam- 
men mit Mikrocomputern antrifft, sind Disketten oder Floppy disks 
und Festplatten ( Hard disks ) . Sie haben vor Kassettenspeichern 
den Vorteil eines wesentlich schnelleren Datenzugrif f s . In letz- 
ter Zeit sind auch die sog. Magne tb las en speicher fur Mikro- 
computer verfiigbar geworden. 

Urn uberhaupt mit dem Computer etwas anfangen zu konnen, mussen 
wir in der Lage sein , ihm Programme und Daten einzugeben und uns 
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ne Ergebnisse seiner Berechnungen irgendwie anzusehen. Bei den 
-eisten kleinen Computern dient ein Terminal fur die Ein- und 
^sgabe von Inf ormationen . Zur Eingabe von Inf ormationen bedient 
rich der Benutzer einer Tastatur, die der einer Schreibmaschine 
Lone It . Die Ausgaben des Computers erscheinen auf dem Bildschirm, 
ihnlich einem gewohnlichen Fernsehbildschirm (bei einigen der 
cilligeren Mikrocomputern handelt es sich sogar urn einen Fernse- 
'.er) . Manchmal ist auch noch ein Drucker an den Mikrocomputer an- 
reschlossen , so daB man sich die Ergebnisse von Berechnungen auch 
ausdrucken lassen kann (die Fachleute sprechen in diesem Zusam- 
-■enhang von "Hardcopy" ) . 


1 .2 Programmiersprachen 


Alle Inf ormationen werden im Computer in Form von Zahlen gespei- 
zhert. Diese Zahlen bestehen lediglich aus den Ziffern 0 und 1 ; 
-an nennt sie auch Binarzahlen. So ist z.B. die Folge 0110 eine 
Binarzahl, die fur die gewohnliche (Dezimal-) Zahl 6 steht. Sie 
'ussen nichts iiber Binarzahlen wissen, um emen Computer in FORTH 
zu programmieren. Einer der Griinde fur den Einsatz einer Program- 
mersprache wie FORTH ist es ja gerade , daB man dadurch mit dem 
Computer nicht mehr in der "Sprache" der Binarzahlen zu reden 
oraucht. 

Man kann zur Programmierung eines Computers auch die sogenannte 
Masch ine nsprache verwenden. Die Befehle in diese r Sprache s ind 
verhaltnismaBig einfach; sie weisen z.B. den Computer an, zwei 
Zahlen zu addieren oder eine Zahl an einer bestimmten Stelle im 
Hauptspeicher abzuspeichern. Befehle in Maschinensprache bestehen 
aus langen Folgen von Nullen und Einsen. Deshalb ist die Arbeit 
mit diesen Sprachen auBerst umstandlich und f ehleranf allig . Schon 
eine einfache Multipl ikationsauf gabe erf order t, daB der Program- 
mierer eine lange Folge von Maschinenbef ehlen (die nur aus den 
Ziffern 0 und 1 bestehen durfen) hinschreibt. Um den Programmie- 
rern das Leben zu erleichtern, hat man deshalb besondere Program- 
me entwickelt, die einfachere und leichter zu verstehende Befehle 
(z.B. in Englisch) in die Sprache der Nullen und Einsen iiberfuh- 
ren , die der Computer versteht. 

Es gibt eine ganze Menge solcher Programme, da es 3 a auch eine 
ganze Menge Programmiersprachen gibt. Dennoch lassen sich dabei 
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zwei Klassen unterscheiden . Da sind zum einen die sog. Assembler. 
Assemblerprogramme verstehen nur Befehle, die sehr eng an die Ma- 
schinensprache angelehnt sind, fur die Befehle jedoch nicht mehr 
ausschlieBlich 0 und 1 , sondern sog. symbolische Ausdriicke ver- 
wenden. Die Sprache , die ein solches Assemblerprogramm versteht, 
heiBt auch einfach Assembler . Bei der Arbeit in Maschinensprache 
muB der Programmierer nicht nur ausschlieBlich Binarzahlen einge- 
ben, er muB sich auch um die tatsachlichen Speicheradressen kiim- 
mern , an denen seine Programme stehen. Auch diese Arbeit er- 
leichtert ihm der Assembler. Hier kann man sich mit Hilfe von 
symbolischen Ausdrucken (der sog. "Marken" ) auf Speicheradressen 
beziehen, ohne daB man weiB, wo genau sich diese Speicheradresse 
befindet. Trotz dieser Erleichterungen ist die Assemblersprache 
dennoch nichts anderes als eine etwas leichter zu handhabende 
Form von Maschinensprache. 

Die andere Klasse von Programmiersprachen , die wir oben erwahnt 
haben , sind die sog. hoheren Programmiersprachen . Diese erleich- 
tern die Arbeit des Programmierers betrachtlich , da sie Befehle 
in eine ganze Folge von Maschineninstruktionen ubersetzen. So 
verfiigen die meisten hoheren Programmiersprachen uber das Symbol 
, um damit die Multiplikation auszudriicken. Der Computer kennt 
jedoch den Stern als Befehl nicht. Deshalb wird ein Stern in eine 
Folge (oftmals 100 und mehr) von Maschinenbef ehlen ubersetzt, die 
dafur sorgen, daB der Computer mul tipliziert . Mit den Details der 
Ubersetzung des Sterns braucht sich der Programmierer nicht zu 
befassen. Um alle diesen lastigen Kleinkram kummert sich die Pro- 
grammiersprache selbst. 

Hohere Programmiersprachen sind also bequemer als Maschinen- oder 
Assemblersprachen , dafur sind sie aber auch etwas eingeschrank- 
ter. Bei der Arbeit in Assembler oder Maschinensprache konnen Sie 
jeden der eingebauten Befehle einsetzen, die Ihr Computer ver- 
steht. Sie haben dadurch die Moglichkeit, bei genauer Kenntnis 
der Arbeitsweise Ihres Computers moglichst viel aus ihm herauszu- 
holen. Arbeiten Sie aber in einer hoheren Programmiersprache , 
dann mussen Sie sich mit den Befehlen zufriedengeben , die darin 
enthalten sind. Die meisten hoheren Programmiersprachen sind 
jedoch schon ziemlich flexibel und verfiigen uber ein umfangrei- 
ches Befehlsrepertoire ; auBerdem kann man mit ihnen unendlich 
viel leichter umgehen als mit Assembler oder Maschinensprache. In 
diesem Buch stellen wir Ihnen eine Programmiersprache vor, die 
noch flexibler und "ausdrucksreicher " als die her k5mm lichen hohe- 
ren Programmiersprachen ist, namlich FORTH! 
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1.3 FORTH und andere Progxaranier sprachen 


FORTH ist nur eine von vielen Programmiersprachen , die auf Mikro- 
computern eingesetzt werden . Andere weit verbreitete Sprachen 
sind BASIC, FORTRAN, Pascal und, in etwas geringerem Umfang, 
COBOL. FORTH unterscheidet sich ganz wesentlich von all diesen 
genannten Sprachen. Am deutlichsten sieht man dies an einem 
Beispiel: Schreiben wir einmal ein Programm in BASIC und FORTH, 
das die beiden Zahlen 3 und 4 addiert und das Ergebnis (7) aus- 
druckt. Da wir davon ausgehen , daB Sie noch iiber keine Program- 
miererf ahrung verf iigen , haben wir uns auf so ein simples Beispiel 
beschrankt. Das BASIC-Programm sieht folgendermaBen aus : 


1 0 A = 3 
20 B = 4 
30 C = A + B 

40 PRINT C (1-1 ) 


Kier nun das FORTH-Programm: 
3 4 + . 


( 1 - 2 ) 


Schon an diesem einfachen Beispiel kann man einige Vorteile (und 
Nachteile) von FORTH erkennen. Das BASIC-Programm sieht ziemlich 
vertraut aus, da es ein biBchen an die Schularithmetik erinnert, 
-ohrend das FORTH-Programm exotisch anmutet. Unbestritten ist das 
FORTH- Programm jedoch wesentlich kiirzer. Wenn Sie lange Program- 
me schreiben wollen, dann werden Sie diese Knappheit zu schatzen 
•issen, da sie nicht soviel Schreibarbei t haben. Weil sie nicht 
=o lang sind, benotigen FORTH -Programme aber auch weniger Spei- 
cherplatz und laufen auch in den meisten Fallen schneller. Ande- 
rerseits sind lange Programme oft " selbstdokumentierend" . Wenn 
sie sauber geschrieben sind, dann erklaren sich diese Programme 
seibst, und man kann durch bloBes Durchlesen dem Programm entneh- 
ien, wozu es dient und wie es seine Aufgabe erledigt. Wir werden 
s±er sehen, daB man in ein FORTH-Programm Kommentare aufnehmen 
auch sie dadurch selbstdokumentierend machen kann. 
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Im letzten Abschnitt haben wir kurz erwahnt, daB Maschinen- oder 
Assemblersprachen flexibler als hohere Programmiersprachen sind. 
FORTH verfugt nun iiber einige Aspekte , die den Assembler- oder 
Maschinensprachen entsprechen und hat deshalb auch viel von ihrer 
Flexibilitat . Diese Flexibilitat erkauft man sich jedoch nicht 
auf Kosten der Handhabung. 

Bevor wir einige weitere Gesichtspunkte von FORTH erortern kon- 
nen , mussen wir uns mit einigen anderen wichtigen Prinzipien 
hoherer Programmiersprachen vertraut machen. Meistens wird ein 
Programm in einer hoheren Programmiersprache durch einen sog. 
Compiler in Maschinensprache iibersetzt. Diesen UbersetzungsprozeB 
bezeichnet man deshalb auch als Compilierung . Nachdem wir das 
Programm geschrieben haben, ubergeben wir es dem Compiler, und 
der ProzeB der Compilierung beginnt. Das Ergebnis des Compilers 
ist aber immmer noch kein lauffahiges Programm. Meistens gibt es 
noch eine Anzahl von Unterprogrammen , die erst mit dem eigentli- 
chen Programm kombiniert werden mussen, urn es zu vervollstandi- 
gen. So konnte Ihr Programm etwa eine Anzahl von Multiplikationen 
enthalten. Der Compiler schreibt nun nicht eine lange Folge von 
Maschineninstruktionen fur jede Multiplikation in Ihrem Programm. 
Statt dessen weiB er , daS in einer sog. Bibliothek (Fachausdruck: 
"Library") ein Unterprogramm zu finden ist, das sich urn die Mul- 
tiplikation kummert. Diese Programmbibliotheken werden zusammen 
mit dem Compiler vom Hersteller ausgelief ert . Nach der Compi- 
lierung befinden sich in Ihrem Programm Befehle, die das Multi- 
plikationsprogramm aus der Bibliothek aufrufen. Urn das Programm 
zu vervollstandigen , muB also erst noch das Multiplikationspro- 
gramm aus der Bibliothek geholt und mit dem selbst geschriebenen 
Programm kombiniert werden. Diesen ProzeB bezeichnet man als 
Binden (Fachausdruck: Linken). 

Compilieren und Linken nimmt betrachtliche Zeit in Anspruch. Auf 
kleineren Computern kann es schon passieren, daB das Compilieren 
und Linken eines mittleren Programms funf Minuten und langer 
dauert, wenn Sie z.B. mit einer Sprache wie FORTRAN arbeiten. Er- 
schwerend kommt hinzu, daB neue Programme meistens einige Fehler 
enthalten (Diese Fehler werden im Programmierer jargon Bugs , vom 
englischen "bug" = Wanze genannt. ) Wenn Bugs in Ihrem Programm 
sind, mussen Sie Ihr Programm verbessern und es erneut compilie- 
ren und linken lassen. Da leider die meisten Programme irgendwel- 
che Bugs enthalten, geht einem diese funfminiitige Warterei ziem- 
lich schnell auf die Nerven! Sie konnen den ganzen ProzeB zwar 
etwas abkurzen, indem Sie Ihr Programm in mehrere kleine Unter- 
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programme aufteilen. Diese Programmtei le oder Moduln konnen 
sznnell compiliert und , wenn sie fehlerfrei sind, in die Pro- 
rrammbibliothek mitaufgenommen werden . Bei dieser Art Programm- 
-r.twicklung muB immer nur das zuletzt entwickelte Modul compi- 
..ert und getestet werden, wodurch sich die Compilierzeit verrin- 
:ert. Immer noch mussen Sie aber zur Ersteliung eines lauffahigen 
Programms die einzelnen Unterprogramme mit Hilfe des Linkers aus 
iar Bibliothek holen lassen. Deshalb ergeben sich nach wie vor 
lei jedem Entwicklungsschritt mehrere Minuten Wartezeit. Einer 
:~r groBen Vorteile von FORTH besteht nun darin , daB jedes Pro- 
:ramm in sehr kleine Einzelschritte zerlegt werden kann, so daB 
lie Compilationszeiten reduziert werden. Bedeutsamer aber ist, 
ia5 in FORTH der ProzeB des Linkens vollig wegfallt. Dadurch 
LSBt sich die Entwicklung eines Programms in FORTH wesentlich be- 
5 zn ieunigen. 

:c: einigen Programmiersprachen wie z.B. BASIC ist das Problem 

ler Wartezeiten bei der Programmentwicklung anders gelost; diese 
izrachen werden nicht compiliert, sondern interpretiert . Man 
i::icht deshalb in diesem Zusammenhang auch von einem Interpre- 
ter . Hier lauft der ProgrammierprozeB etwas anders ab. Wenn man 
Tin Programm compiliert und linkt, dann erhalt man als Ergebnis 
e _r Maschinenprogramm. Sie lassen dieses Programm laufen, um die 
revunschten Daten zu erhalten. In einer interpretierten Sprache 
arhalten Sie niemals ein Maschinenprogramm. Statt dessen liest 
Tin anderes Programm, eben der Interpreter, Ihre Befehle durch 
_~i stoBt entsprechende Sequenzen von Maschinenbef ehlen an, die 
las bewirken, was Sie haben wollen. Danach liest der Interpreter 
len nachsten von Ihnen eingegebenen Befehl und fiihrt ihn aus usw. 
rnterpretersprachen fiihren Befehle also sofort aus, nachdem sie 
ungegeben sind. So geht keine Zeit fur Compilieren und Linken 
erloren. 

ler Nachteil dieses Verfahrens liegt darin, daB interpretierte 
Programme nur sehr langsam laufen, oft zehn- bis dreiBigmal lang- 
= amer als ein compiliertes Programm. In einigen Fallen ist die 
Au fgabens tel lung fiir den Computer so einfach, daB dies fur den 
Benutzer keinen Unterschied ausmacht. Ob er nun 0,01 Oder 0,2 
Pekunden wartet, ist ihm wohl egal . Andererseits ist der Unter- 
schied zwischen einer Wartezeit von 10 Minuten und 30 Sekunden 
schon gravierend. Deshalb konnen interpretierte Programme proble- 
-atisch werden. BASIC bietet hier einen Ausweg: Man kann das 

Programm im Interpreter entwickeln und testen; sobald es fertig 
ist, ubergibt man es einem speziellen BASIC-Compiler , der es in 
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eine schnellere compilierte Version uberfiihrt. Oft ist dies das 
bestmogliche Vorgehen. Die langsame Laufzeit der interpretierten 
BASIC-Programmme kann aber wiederum den ProzeB der Fehlersuche 
unertraglich verzogern. Einer der groBen Schwachpunkte des inter- 
pretierten BASIC^lst namlich, daB der Programmierer keine Unter- 
programmme oder Moduln schreiben kann, wodurch eine modulare 
Programmentwicklung nicht mehr moglich ist. Stets muB fur die 
Fehlersuche das gesamte Programm ablaufen. Dennoch kann man sa- 
gen , daB der Vorteil interpretierter Sprachen darin liegt, daB 
Fehler sehr schnell lokalisiert und ausgebessert werden konnen, 
da die Programme sofort nach dem Eingeben ausgefiihrt werden. 

Die Sprache FORTH zeichnet sich dadurch aus, daB sie sowohl Merk- 
male von Assemblersprachen als auch solche von hoheren Sprachen 
aufweist. Wenn wir die Maschinensprache als die erste Ebene der 
Programmiersprache auffassen und hohere Sprachen sich auf der 
zweiten bzw . dritten Ebene befinden, dann ist FORTH eine Sprache 
der vierten Ebene. Daher kommt ubrigens auch der Name FORTH. Es 
wurde von Charles H. Moore bei der Arbeit mit einem Computer der 
dritten Generation entwickelt. Seine neue Sprache war so machtig, 
daB sie aus seinem Rechner einen Rechner der vierten Generation 
zu machen schien. Deshalb wollte Moore ihr den Namen FOURTH geben 
(vom Englischen "fourth": viertens oder Viertes) . Leider akzep- 
tierte sein Computer aber keine Befehle, die mehr als fiinf Buch- 
staben enthielten; so entstand der Name FORTH. 

Wenn wir FORTH mit anderen Programmier sprachen vergleichen , so 
sehen wir, daB es fur den Anf anger etwas schwieriger zu erlernen 
ist, und daB die Programme nicht unbedingt selbstdokumentierend 
sind. Andererseits kann man in FORTH aber sehr kurze Programme 
schreiben, deren Fehler man schnell entdeckt und korrigiert hat, 
da auch die Compilierzeit eines FORTH -Programms im Verhaltnis zu 
anderen Programmiersprachen wesentlich reduziert ist. Die Lauf- 
zeit von FORTH-Programmen ist wesentlich geringer als die ent- 
sprechender interpretierter BASIC-Programme . Sie kann zwar etwas 
langer als die eines compilierten FORTRAN -Programms sein, dafiir 
verkiirzt sich aber die Compilier- und Linkzeit in FORTH. Einer 
der Hauptvorteile von FORTH ist auBerdem, daB die Sprache erwei- 
terbar ist: der Programmierer kann die Sprache selbst um neue 
Befehle erweitern. Darauf werden wir spater noch eingehen. Ein 
weiterer Vorteil von FORTH im Vergleich mit anderen Program- 
miersprachen ist es, daB FORTH wesentlich wemger Arbei tsspeicher 
benotigt. Gerade beim Einsatz mit kleinen Computern erweist sich 
dies als unschatzbarer Vorteil. 
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ier Arbeit mit GroBrechnern sind die Vorteile von FORTH nicht 
unmittelbar deutlich. Diese Computer sind meist sehr schnell 
verfugen iiber eine enorme Menge an Hauptspeicher . Die Zeit 
die Compilierung und das Linken eines Programms kann so klein 
, daB sie fur den Programmierer gar nicht mehr ins Gewicht 
Ebenso zahlt bei GroBrechnern der verminderte Speicher- 
zbedarf nicht so sehr. Es verbleibt aber immmer noch die 
iterbarkeit von FORTH als ein groBer Vorteil. 


1 .4 Zum Anfang: Der "Stack" - die Postfix -Schreibweise 


wenden uns nun den grundlegenden Ideen von FORTH zu, damit 
Ihr erstes Programm schreiben konnen. Als erstes wollen wir 
einmal ein einf aches Programm schreiben, das die Zahlen 3 
4 addiert und das Ergebnis der Addition, 7, ausdruckt. In 
>: sieht das so aus: 


- . (RETURN) (1-3) 


RETURN) wollen wir ausdriicken , daB Sie die Return-Taste auf 
- Terminal betatigen sollen (und nicht etwa das Wort "return" 
chreiben) . Sehen wir uns nochmal etwas genauer an, wie man 
es Programm eingibt. Erst tippen wir die 3, gefolgt von einem 
zeichen , dann die 4 und wieder ein Leerzeichen. AnschlieBend 
n wir ein Pluszeichen ein, gefolgt von einem Leerzeichen, auf 
ein Punkt folgt. Nachdem wir all dies eingegeben haben , 
ken wir die Return-Taste. Der Computer antwortert darauf mit 


(1-4) 


hten Sie die Leerzeichen. Die meisten Programmiersprachen 
neren Leerzeichen. Anders bei FORTH: Hier dienen die Leer- 
nen als Trennzeichen , d.h., sie dienen dazu, einzelne Befehle 
mander zu trennen. Deshalb merken Sie sich: Leerzeichen sind 
ORTH sehr wichtig l 
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Natiirlich mussen Sie, ehe Sie dieses Programm eingeben konnen, 
Ihr FORTH-System erst in den Computer bringen oder "laden". Wie 
Sie das machen , entnehmen Sie am besten Ihrem FORTH-Handbuch . 

Betrachten wir nun das Beispielprogramm (1-3) etwas genauer. 
Zuerst geben wir dem Computer die Zahlen 3 und 4 als Daten ein. 
Der Computer merkt sich diese Daten in einem ganz bestimmten 
Bereich des Arbeits- (oder Haupt- ) speichers , dem sog. Stack . Als 
nachstes trifft der Rechner auf das Pluszeichen. Dies stellt 
einen Befehl dar , der ihn dazu veranlaBt, die beiden Werte 3 und 
4 zu addieren, die soeben auf dem Stack gespeichert wurden. Dabei 
werden die 3 und die 4 vom Stack entfernt und statt dessen ihre 
Summe 7 dort abgelegt. SchlieBlich stoBt der Computer auf den Be- 
fehl (!)".". Am Anfang ist es etwas seltsam, daB ein Interpunk- 
tionszeichen in einer Programmiersprache einen eigenen Befehl 
darstellt. In FORTH sorgt dieser Befehl aber dafur , daB das Ele- 
ment, das sich gerade zuoberst im Stack befindet, auf dem Bild- 
schirm (oder Drucker) ausgegeben wird. Wir werden diese Dinge 
noch eingehender darstellen. 

Sehen wir uns dazu den Stack einmal genauer an. Der Stack ist 
nichts anderes als eine Folge von Speichers tellen im Hauptspei- 
cher des Computers. Eine bildliche Darstellung des Stacks sehen 
Sie in Abbildung 1-1. In 1-1a ist der Stack noch leer: es sine 
bisher noch keine Informationen in den Rechner eingegeben und auf 
dem Stack gespeichert worden. 

Nehmen wir jetzt einmal an, wir lassen das Programm (1-3) ausfiih- 
ren , weisen also den Computer an, die darin enthaltenen Befehle 
zu befolgen. Dazu " liest" sich der Computer das eingegebene Pro- 
gramm von links nach rechts durch. Er trifft als erstes auf die 
Ziffer 3. Er weiB, daB dies ein Datenelement ist, das er auf deir 
Stack speichern muB. Man sagt in diesem Zusammenhang im Program- 
miererj argon , daB die 3 auf den Stack ge pusht wird. Wie dies 
aussieht , konnen Sie der Abbildung 1-1b entnehmen; hier ist die 2 
das oberste Element auf dem Stack. Jetzt aber weiter mit Programr 
(1-3). Der Rechner trifft als nachstes auf die 4. Auch dies ist 
ein Datenelement und muB deshalb auf den Stack gepusht werden. 
Wir erhal ten die Abbildung 1-1c. Beachten Sie, daB sich die Drei 
jetzt urn einen Eintrag weiter "unten" befindet und die Vier das 
neue oberste Element auf dem Stack ist. Jedesmal , wenn namlicr 
Daten auf den Stack gepusht werden, wandern alle bereits vorhan- 
denen Eintrage urn eine Position nach unten, und das neue Daten- 
element wird zum neuen obersten Eintrag. 
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ABBIL.DUHG *1-1: Ein Beispiel fur die Stack-Operationen . a) Ein 
-eerer Stack; b) die 3 wurde auf den Stack gepusht; c) Zustand 
-es Stacks, nachdem die 4 gepusht wurde; d) der Stack nach Aus- 
fuhrung von +; e) der Stack nach Ausfuhrung des .-Befehls. 


Sie konnen jetzt verstehen, warum man den Stack auch als Stapel- 
speicher bezeichnet: Die Verhaltnisse sind ahnlich wie bei einem 
Stapel von Essen tabletts in einer Cafeteria oder GroBkuche. Wenn 
neue Tabletts auf den Stapel gelegt werden , dann wandern die al- 
ten nach unten, und die neuen liegen auf dem Stapel obenauf . Ent- 
nimmt jemand dem Stapel ein Tablett, so greift er auf das oberste 
und zieht es vom Stapel; ist das oberste Element weg , dann wan- 
dern die anderen Tabletts "urn eine Position nach oben". Das zuvor 
zweite Element wird jetzt oberstes Element des Stapels. 
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Fahren wir jetzt in unserem Programm (1-3) fort. Wir treffen als 
nachstes auf das Symbol + . Hierbei handelt es sich nicht urn 
ein Datenelement . 

Das + ist vielmehr ein FORTH-Wort oder Befehl. FORTH kennt eine 
ganze Menge an Wortern , die alle unterschiedliche Operationen 
auslosen. Wir wollen in diesem Text zur besseren Markierung der 
FORTH-Worter Fettdruck verwenden. Das Wort + sorgt dafiir, daB 
folgendes passiert: Zuerst werden die beiden obersten Elemente 
des Stacks entfernt. Fur das Entfernen des obersten Elements hat 
sich eine eigene Terminologie eingeburger t ; man spricht in diesem 
Zusammenhang von pop. Im FORTH-Jargon wiirde man also sagen, daB 
die beiden obersten Elemente vom Stack gepoppt werden. (Da immer 
nur das oberste Element des Stacks gepoppt werden kann, werden 
die Daten in der Reihenfolge "zuerst die Vier, dann die Drei" 
entfernt.) Als nachstes sorgt das Wort + daf ur , daB die beiden 
Zahlen addiert werden. Dabei ergibt sich die Summe 7, die jetzt 
auf den Stack gepusht wird. Wir haben jetzt den Zustand in Abbil- 
dung 1-1d. Beachten Sie, daB die Vier und die Drei verschwunden 
sind und an ihrer Stelle jetzt der Wert 7 an oberster Stelle auf 
dem Stack steht. 

SchlieBlich stoBen wir in unserem Programm auf das Wort - (.). 
Dieses Wort sorgt dafiir, daB das oberste Element des Stacks ge- 
poppt und auf Ihrem Terminal ausgegeben wird. Der Stack ist jetzt 
also leer, wie man an der Abbildung 1-1e erkennen kann. Nachdem 
FORTH die Zahl 7 auf Ihrem Terminal ausgegeben hat, bringt es die 
Meldung "ok M und zeigt somit an, daB das Programm ohne Fehler 
abgearbeitet werden konnte und der Computer jetzt auf neue Befeh- 
le von Ihnen wartet. 

Wir kennen nun die beiden grundlegenden Stack-Operationen , nam- 
lich das Abspeichern eines Datenelements als neues oberstes Ele- 
ment auf dem Stack ("push") und das Entfernen des obersten Stack- 
Elements ("pop"), wobei alle verbleibenden Elemente urn eine Posi- 
tion weiterriicken. Die Stack-Operation bringt es mit sich, daB 
das zuerst auf dem Stack abgelegte Element das letzte ist, das 
von ihm entfernt werden kann. Man spricht in diesem Zusammenhang 
von dem Prinzip "Last In First Out" (ubertragen etwa: als erstes 
rein, als letztes raus) , das auch unter der Abkurzung LIFO be- 
kannt ist. Ein anderer weit verbreiteter Name fur den Stack lau- 
tet daher auch LIFO-Speicher . Wenn ein Datenelement einmal mit- 
tels Pop vom Stack entfernt worden ist, dann hat es der Computer 
" vergessen" , d.h., es kann nicht mehr zu Berechnungen heran- 
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gezogen werden. In den folgenden Kapiteln werden wir deshalb noch 
Methoden kennenlernen , die es uns erlauben, ein Datenelement auf 
dem Stack mehrmals fur Operationen heranzuziehen . 

Sicher ist Ihnen aufgefallen, daft wir in FORTH zuerst die Daten 
emgeben , und dann das Symbol, das diese Daten manipuliert, wie 
in “3 4 + . " . Die Reihenfolge ist am Anfang sicher etwas un- 
gewohnlich. Es hat sich aber gezeigt, daft sich dahinter ein au- 
fterst wirkungsvolles Prinzip fur die Programmierung von Computern 
verbirgt; auch begegnet uns diese Darstellungsweise bei einigen 
programmierbaren Taschenrechnern . Man bezeichnet diese FORTH- 
typische Schreibweise als Postfix -Notation oder umgekehrte polni- 
sche Notation. Letztere leitet sich von dem Erfinder dieser 
Schreibweise her, dem polnischen Logiker und Mathematiker J. 
Lukasiewicz. Die normale Schreibweise, die wir von der Schul- 
arithmetik her kennen , tragt den Namen Infix-Notation. Einer der 
wichtigsten Vorteile der Postfix-Notation besteht darin , daft man 
in ihr keine Klammern braucht. Aus der Schulalgebra wissen wir, 
daft in der Inf ix-Schreibweise haufig der Einsatz von Klammern 
no tig wird, urn eindeutige Ausdriicke zu erzielen. Angenommen , wir 
wollen die Zahlen 3 und 5 addieren und dann das Ergebnis mit 10 
multiplizieren . In der ublichen Inf ix-Schreibweise driicken wir 
das so aus: 


(3+5) * 10 


(1-5) 


Beachten Sie, daft wir hier gleich das Symbol * verwendet haben , 
urn die Multiplikation auszudriicken , ebenso, wie es in FORTH und 
den meisten anderen Programmiersprachen iiblich ist. Wir brauchen 
die Klammern in (1-5), denn ohne sie wiirden wir die 3 auf das 
Produkt aus 5 und 10 addieren, wodurch wir ein vollig anderes 
Ergebnis erhalten. 

Vergleichen wir jetzt einmal, wie man die Rechenaufgabe (1-5) in 
der Postfix-Notation hinschreibt. Wir machen uns das gleich an 
einem einfachen FORTH -Programm klar: 


10 3 5 + * . (RETURN) 


( 1 - 6 ) 
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Wie Sie sehen, sind hier keine Klammern notig. Die Arbeitsweise 
dieses Programms wollen wir uns wieder an Hand einer graphischen 
Darstellung des Stacks (ein "Stackdiagramm" ) vergegenwartigen 
(vgl. Abb. 1-2). In Abbildung 1-2a sehen wir den Stack, nachdem 
die Zahlen 10, 3 und 5 in dieser Reihenfolge gepusht wurden. Als 
nachstes taucht das Operationssymbol + auf . Deswegen werden die 
obersten beiden Zahlen 5 und 3 mittels Pop entfernt und das Er- 
gebnis der Addition, die 8, statt dessen auf dem Stack abgelegt. 
Das Ergebnis sehen Sie in der Abbildung 1-2b. Als nachstes kommt 
das FORTH-Wort * an die Reihe. Dies poppt wiederum die zwei 
obersten Zahlen vom Stack und berechnet ihr Produkt. Das Ergebnis 
der Berechnung wird als neues oberstes Element auf den Stack ge- 
pusht, und wir erhalten Abbildung 1-2c. Wie Sie sehen konnen , 
haben die beiden Operationen jeweils zwei Zahlen vom Stack ge- 
poppt und nur eine neue dafur abgelegt. Jedesmal, wenn eine Zahl 
mittels Push entfernt wurde, rucken die verbleibenden Daten auf 
dem Stack urn eine Position nach oben (vgl. nochmal Abb. 1-2b). 
Schlieftlich kommt das FORTH-Wort . an die Reihe. Die oberste Zahl 
80 wird gepusht und auf dem Bildschirm angezeigt. Als Ergebnis 
der Operation finden wir einen leeren Stack vor (Abb. 1-2d). 
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ABBILDUNG 1-2: Der Stack bei der Ausfuhrung des Programms (1-6). 
a) Nachdem 10, 3 und 5 auf den .Stack gepusht wurden; b) der Stack 
nach Ausfuhrung von +? c) der Stack nach Ausfuhrung von *; d) der 

Stack nach Ausfuhrung von . 
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Sisher haben wir nur mit ganzen Zahlen (Fachausdruck : Integer ) ge- 
rechnet. Integers sind solche Zahlen, die keine Nachkommas tellen 
i-fweisen und deshalb nicht als Bruchzahlen geschrieben werden 
rlssen. Furs erste werden wir uns in unseren Beispielprogrammen 
r ich auf diesen Zahlentyp beschranken. 

lieser Abschnitt hat zwei wichtige Konzepte der Programmierspra- 
:“e FORTH eingefuhrt: den Stack und die Postfix-Notation. Fur das 
Programmieren in FORTH sind diese von zentraler Bedeutung. AuBer- 
iem haben wir die FORTH-Worter fur die Addition, die Multiplika- 
;:on und die Ausgabe von Daten kennengelernt . Sie sollten jetzt 
lereits in der Lage sein, mit diesem Wissen ausgerustet einige 
T -RTH -Programme zu schreiben. 


1 .5 Wie laflt man ein FORTH-Programm laufen? 


Bmfache FORTH-Programme haben wir bereits kennengelernt. Diese 
-erden von der Tastatur eingegeben und in dem Augenblick ausge- 
: uhrt , in dem wir die Return-Taste drucken. Nach seiner Ausfuh- 
rung geht das Programm allerdings verloren. Wenn Sie es wieder 
.aufen lassen wollen, dann miissen Sie es erneut in voller Lange 
eingeben. Deshalb ware es bequem, wenn wir uns Programme so mer- 
<en konnten , daB wir sie jederzeit ohne Neueingabe laufen lassen 
<onnten. Wir behandeln in diesem Abschnitt die Moglichkeit zur 
Speicherung von Programmen auf Diskette oder Kassette. Da die 
iazu benotigten Arbeitsschritte nicht Teil der Sprache FORTH 
sind, sondern von Ihrem Betriebssystem abhangen , konnen wir auf 
dieses Thema nicht allzu detailliert eingehen. Genauere Einzel- 
r.eiten dazu sollten Sie Ihrem FORTH-Handbuch entnehmen , das zu- 
sammen mit Ihrem System ausgeliefert wurde . Bei den meisten 
FORTH-Sys temen ahneln sich jedoch die Techniken fur das Eingeben, 
Bearbeiten und Speichern von Programmen. Wir wollen in diesem 
Abschnitt deshalb einen allgemeinen Uberblick iiber die notigen 
Arbeitsschritte geben. AuBerdem untersuchen wir noch einmal ge- 
nauer den ProzeB des "Laufenlassens" eines Programms . 

Zur Eingabe langerer Programme bedient man sich meistens eines 
sog. Editors . Das ist ein spezielles Programm, mit dem man Text- 
material eingeben (in diesem Fall Ihr Programm) und bearbeiten 
(z.B. fur Korrekturen) kann. Die meisten in FORTH-Sys temen zur 
Verfugung stehenden Editoren sind sog. Bildschirmedi toren . Sie 
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bearbeiten stets eine sog. Eiidsc. 
gerade auf dem Bildschirm Ihres Ter: 
der Regel kann eine Bildschirmsei 
wohl sich bei einigen groBeren Eli 
fang ergibt. Meistens wird der Tex' 
gestellt, von denen jede bis zu 5- 
kann. 


t__ p L; r v a s Sie 

mams :-r < : -iren . In 
- * * ru : ‘re r. , ob- 

e: Tex turn- 

leilen dar- 
£ if nehmen 


Die Programme werden auf Diskette ode: • =_==- 

der Bildschirm wird innerhalb ernes sc. or 
Block bezeichnet. Die Blocke sind fcrtl = _:e 
entsprechen bestimmten Adressen auf Ihrer y 
Die genauen Konventionen fur die Vergare 
men Sie am besten Ihrem FORTH-Handbuch . »e 
weise ein Programm edieren und es anschlie 
speichern wollen, dann geben Sie in ernes 
folgendes ein: 


ztzz scm = sis ein 
r : v* . r t . Sie 
ra :rer Ciskette. 
cult. _rr*err er.tneh- 
e i_i : oeispiels- 
ir. *20 ab- 

ot as I Z?T~. -System 


120 EDIT (RETURN) 


(1-7) 


Als nachstes konnen Sie das Textmatenal eir.tiroer 1 is I hr Pro- 
gramm ausmacht. (Wenn Sie in einem Block arzeitet fer cere its 
einma 1 verwendet wurde , dann miissen Sie ers: ei res. fas dann 
enthaltene Textmatenal loschen , ehe Sie 11 : fer Ve.e.r.gabe be- 
ginnen konnen.) In den folgenden Ober legunget rarer »:r davon 
aus , daB das Programm auf einer Diskette gespeichert werden soil. 

Der Block, der sich gerade in Arbeit be finder, •::: nun mcht 
sofort auf Diskette gespeichert, sondern start desser in einen 
extra dafiir reservierten Bereich im Arbeitsspeicher des Computers 
aufbewahrt. Diesen Spezialbereich bezeichnet mar. r;r dem Fach- 
ausdruck Puffer. Nach Beendigung der Edierarbeit geben Sie ein 
spezielles Kommando ein, durch welches der Editor verlassen und 
der bearbeitete Puffer markiert wird, damit das System weiB, dafl 
er aktualisiert werden muB. Der Computer weiB nun, daB der frag- 
liche Puffer neues Textmaterial enthalt, das noch mcht auf Dis- 
kette gespeichert worden ist; das Abspeichern neuen Materials auf 
die Diskette aber bezeichnet man als Aktualisieren . Jetzt konnten 
Sie einen anderen Block edieren. Das Programm konnte ]a z.B. zu 
lang sein, urn in einen einzigen Block zu passen. Dann setzen Sie 
es einfach in einem neuen, zweiten Block fort. Wenn Sie jetzt den 
Editor verlassen und den Block fur die Aktualisierung markieren, 
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dann existieren somit im FORTH-Sys tern zwei Puffer, die jeweils 
neues Textmaterial enthalten und fur die Aktualisierung markiert 
sind. Geben Sie jetzt ein 


SAVE-BUFFERS (RETURN) 


( 1 - 8a) 


Oder, bei einigen FORTH-Systemen 


FLUSH (RETURN) 


( 1 -8b ) 


dann wird der Inhalt der markierten Puffer auf die Diskette ge- 
speichert. 

Da sich die Puffer im Hauptspeicher des Computers befinden, ist 
lhre Anzahl beschrankt. Wie viele Puffer genau in Ihrem FORTH- 
System zur Verfugung stehen, mussen Sie Ihrem Handbuch entnehmen. 
Bei vielen FORTH-Systemen konnen Sie dennoch mehr Blocke bearbei- 
ten, als Puffer zur Verfugung stehen. Wenn Sie einen neuen Block 
eroffnen wollen und kein Puffer mehr vorhanden ist, dann werden 
emfach alle markierten Puffer auf Diskette geschneben und ste- 
hen danach wieder zur Verfugung. Dieser ProzeB der Aktualisierung 
geschieht vollig selbsttatig; der Benutzer braucht sich darum 
nicht zu kummern. Durch das Speichern auf Diskette werden die 
Puffer wieder frei fur die Aufnahme von neuem Textmaterial. 

In vielen FORTH-Systemen sagen die Blocknummern auch aus, an 
welcher Stelle der Diskette sich der entsprechende Text befindet. 
Deshalb benotigen diese Systeme keine speziellen Inhal tsverzeich- 
nisse fur die Disketten. Da das Betriebssystem von FORTH in FORTH 
selbst geschrieben ist, ist es einfach, dieses zu andern und 
gegebenenf alls Inhaltsverzeichnisse mit aufzunehmen, falls Sie 
dies wiinschen. Wie dies geht, erfahren Sie in Kapitel 8. 

Nehmen wir einmal an, Sie wollen ein Programm verandern, das Sie 
mit Ihrem Editor eingegeben haben. Das Programm soli sich im 
Block 120 befinden. Wieder geben Sie (1-7) ein. Daraufhin wird 
der Inhalt von Block 120 von der Diskette gelesen und auf Ihrem 
Bildschirm ausgegeben. Sie konnen jetzt eine Vielzahl unter- 
schiedlicher Operationen mit diesem Text anstellen, wie z.B, 
Zeichen oder Zeilen einfugen oder loschen, bestehende Zeichen 
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(iberschreiben usw. Dadurch konner Sie -rtessern, 
ohne daB» sie es vollig neu eingeben. = Ite* Gr_e-t_erung auf 
dem Bi ldschirm dient eine Schre i br ar «:e ie t s*: r T~r ;:r , der 
(meist in Form eines leuch tender. Sett, let c= :c«ar T-*r= Unter- 
strichs) Ihnen anzeigt, an welcher ?zslZ-zz it. Itte-t Text Sie 
sich gerade befinden. Naturlich gibt es =_:* ‘tcEiatt: s rat denen 
Sie diesen Cursor iiber Ihren Bildschirr te^e-te- at at. ;ede be- 
iiebige Stelle des Texts gelangen kcrrer. >ev f.e eit Zeichen 
tippen, erscheint dies immer an der Stelae at ter der Cur- 
sor gerade bef indet . Die einzelnen Kcmtftf fir t-e lextbear- 
beitung (oder "Edi tierung" ) sind naturli it . 5.= ter :t System 
verschieden; ziehen Sie deshalb fur die ::a -at e 1 1 zuerst 
Ihr Handbuch zu Rate. Auch ist es vorteiltart S.e erst ein 
wenig mi t Ihrem Editor herumspielen , bevcr 5a t- 1 ter vtrliegen- 
den Buch weitermachen. 

Angenommen , Sie haben im Editor ein Procrarr ret : tr.etet * jetzt 
konnten Sie es eigentlich ausfuhren lasset. *:eder wir da- 
von ausgehen, daB sich das fragliche Program tr 'll bef in- 
det. Sie haben den Editor verlassen und der tetre: fetter Block 
fur die Aktualisierung markiert. Als nachstes tere- Sie etr 


120 LOAD (RETURN) 


(1-9) 


Daraufhin wird das Programm ausgefuhrt. Beachter Sie, tar es sich 
nicht unbedingt in einem Puffer befinden muS . Vert as bereits 
fertig geschrieben und abgespeichert ist, also auf der Diskette 
steht, dann sorgt der Befehl aus (1-9) dafilr, car das Programm in 
Block 120 automatisch von der Diskette gelesen und in emen Puf- 
fer geschrieben und dann aus diesem Puffer heraus ausgefuhrt 
wird. Voraussetzung dafiir ist naturlich, da£ Sie m Ihr Disket- 
tenlaufwerk die richtige Diskette gelegt haben, die das gewun- 
schte Programm enthalt. Wenn FORTH einen Block ladt, dann compi- 
liert es den Inhalt dieses Blockes erst in Maschinensprache und 
fuhrt dann das Erqebnis dieses Ubersetzungsvorgangs aus. 

Oft beansprucht ein Programm mehr als einen Block. Dann mussen 
Sie, urn das Programm laufen zu lassen, mehrere Blocke laden. Das 
Programm konnte z.B. in den Blocken 120 und 121 abgespeichert 
sein. Wenn Sie jetzt als letzte Zeile von Block 120 folgendes 
schreiben : 
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‘21 LOAD (1-10) 

Lann weist dieser Befehl das FORTH-Sys tern an, den Block 121 zu 
_aden. Sie brauchen also nur mehr Block 120 zu laden; der Befehl 
am Ende dieses Blockes sorgt dafiir, daB Block 121 automatisch 
r.achgeladen wird. Die genauen Einzelheiten dieses Verfahrens 
<onnen auch wieder von System zu System variieren. Auch hierzu 
sollten Sie in Ihrem FORTH-Handbuch nachschlagen . 

Sie haben jetzt einige grundlegende Techniken des Edierens und 
Ladens von Programmen kennengelernt . Kapitel 8 geht auf diese 
Arbeitsschritte noch einmal sehr ausfiihrlich ein. Zusammen mit 
dem bisher Gesagten und Ihrem FORTH-Handbuch sollten Sie jedoch 
7etzt schon in der Lage sein, einfache FORTH -Programme zu schrei- 
oen, zu edieren und laufen zu lassen. 


1-6 Progranmf ehler - Fehlersuche 


So gut wie alle Programme enthalten anfanglich Fehler. Fur den 
Anf anger ist dies oft entnervend, es sollte ihn jedoch nicht ent- 
mutigen. Erfahrene Programmierer wissen, daB die Fehlersuche ein 
fester Bestandteil des Programmmierprozesses ist; fehlerhafte 
Programme sind die Regel und nicht die Ausnahme. Sie weisen nicht 
auf ein Unvermogen des Programmierers hin. Es ist deshalb wich- 
tig , daB man sich als Programmierer moglichst fruhzeitig mit den 
Techniken zum Ausf indigmachen und Beheben von Fehlern in Program- 
men bekannt macht. Da Programmf ehler im Programmierer j argon als 
Bugs bezeichnet werden (das kommt vom Englischen "bug" fiir "Wan- 
ze" ) , spricht man in diesem Zusammenhang auch von Debugging . 
Schon diese scherzhafte Ausdrucksweise , bei der die Fehlersuche 
unter "Entwanzen" lauft, sollte Ihnen klarmachen, daB Programm- 
f ehler keine Katastrophe sind. 

Effiziente Fehlersuche setzt voraus , daB man sich uber die Art 
moglicher Fehler im klaren ist. Die einfachste Art von Fehlern 
sind die sog. syntaktischen Fehler. Ein Syntaxfehler unterlauft 
Ihnen immer dann , wenn Sie sich beim Schreiben von FORTH-Program- 
men nicht an die formalen Regeln (die sog. "Syntax") halten, die 
fiir korrekte Programme in FORTH gel ten. Wenn wir z.B. im Programm 
(1-6) das Leerzeichen zwischen dem + und dem * weglassen, dann 
fuhrt dies zu einem Syntaxfehler. Wenn Sie versuchen , dieses 
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fehlerhafte Programm laufen zu lassen, dann erhalten Sie eine 
Fehlermeldung , in der Sie - soweit der Rechner dazu in der Lage 
ist - auf die Art Ihres Fehlers hingewiesen werden. Auf jeden 
Fall fiihrt ein Syntaxfehler in den meisten FORTH-Sys temen dazu, 
daB das Programm nicht ausgefiihrt und nicht die Bereitschaf tsmel- 
dung "ok" auf dem Bildschirm ausgegeben wird. Unterschiedliche 
FORTH-Systeme geben fur den gleichen Fehler unterschiedliche Feh- 
lermeldungen aus . Wenn Sie einen Block mit einem fehlerhaften 
Programm laden, so kann die Fehlermeldung z.B. die Programmzeile 
anzeigen , in der der Fehler aufgetreten ist. Meist bricht FORTH 
mit der Compilierung eines Programms ab, wenn es einmal einen 
Fehler in ihm entdeckt hat. Wie auch immer, bei fehlerhaften Pro- 
grammen sollten Sie sofort das Programm edieren, den Fehler be- 
seitigen und das Programm dann erneut laden. Jetzt funktioniert 
das Programm entweder richtig, Oder Sie stoBen (an einer spateren 
Stelle) auf einen weiteren Syntaxfehler. Wenn Sie erst einmal die 
ungefahre Stelle des Syntaxf ehlers wissen, dann konnen Sie ihn 
meist durch einf aches Durchlesen des Programms lokalisieren . 

Ein anderer , etwas schwerer zu beseitigender Fehlertyp sind die 
logischen Fehler. Ein logischer Fehler liegt dann vor, wenn ein 
FORTH-Programm zwar alien formalen Regeln geniigt, aber dennoch 
nicht tut, was Sie wollen. Wenn Sie z.B. im Programm 1-6 verse- 
hentlich an Stelle eines * ein + eingeben, dann berechnet Ihr 
Programm die Summe aus drei Zahlen, und nicht mehr, wie beabsich- 
tigt, das Produkt aus einer Zahl und die Summe von zwei anderen. 
Das Programm ist zwar wohlgeformt, Oder, wie man auch sagt, syn- 
taktisch korrekt, liefert aber ein falsches Ergebnis. Jedesmal , 
wenn Sie ein neues Programm schreiben, sollten Sie deshalb - egal 
wie einfach das Programm ist! - anhand von Testdaten uberpriifen, 
daB es auch das macht, was Sie wollen. Sie konnten z.B. die Er- 
gebnisse Ihres Programms mit einem Taschenrechner uberpriifen . Tun 
Sie das mit mehreren verschiedenen Eingabedaten. Bei der Uberprii- 
fung von Programmen kann man nie genug Sorgfalt walten lassen. 
Uberpriifen Sie also stets Ihre neuen Programme! 

Fur die Lokalisation von Logikfehlern gibt es unterschiedliche 
Techniken. Als erstes sollten Sie Ihr Programm noch einmal durch- 
lesen. Sollte der Logikfehler auf einen Schreibfehler zuriickzu- 
fiihren sein, dann fallt Ihnen dieser vielleicht beim Durchlesen 
schon auf. Gehen Sie Ihr Programm auch in Gedanken Schritt fur 
Schritt durch, genauso, wie es der Computer tut. Dabei entdeckt 
man meist Fehler in der Ablauflogik: es zeigt sich, daB Ihr Pro- 
gramm gar nicht berechnet, was Sie berechnet haben wollen. 
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Zeichnen Sie auch Diagramme wie in den Abbildungen 1-1 Oder 1-2, 
ur sich den Zustand des Stacks in jedem Verarbeitungsschri tt zu 
vergegenwartigen . Auch dadurch werden einige Fehler offenbar. 
Iinige FORTH-Systeme verfiigen uber Befehle, mit denen Sie den 
Stack ausdrucken konnen, ohne ihn zu verandern. Dies kann beim 
debugging eine groBe Hiife sein, da Sie dann nicht mehr von Hand 
^eweils die Stack-Werte notieren mussen, sondern einfach mit 
iiesem Befehl nachsehen konnen, ob sich auch die gewunschten Wer- 
te an der richtigen Stelle im Stack befinden. Wie Sie ja bereits 
vis sen , entfernt das FORTH-Wort . das oberste Element vom Stack 
:nd kann deshalb fur diesen Zweck nicht eingesetzt werden. Im 
r.achsten Kapitel werden wir iibrigens eine Methode kennenlernen , 
die dieses Problem umgeht. 

Finer der groBen Vorteile von FORTH ist es , daB Sie in dieser 
Programmiersprache ein groBes Programm schreiben konnen, das aus 
einer Folge von mehreren kleinen Unterprogrammen besteht. Je 
Kleiner ein Programm ist, desto einfacher kann man in ihm logi- 
=che Fehler lokalisieren und beseitigen. Jedes Unterprogramm wird 
sofort, nachdem es fertig geschrieben ist, erst emmal getestet 
und fehlerfrei gemacht. Dadurch bleibt der ProzeB der Fehlersuche 
stets auf relativ kleine und uberschaubare Einheiten beschrankt. 
Wie man solche Unterprogramme schreibt, erfahren Sie im nachsten 
Kapitel . 


1 - 7 Ubungsauf gaben 

1-1 Welche Funktion haben die einzelnen Bestandteile eines Rech- 
ners? 

1 -2 Was ist der Unterschied zwischen Maschinensprache und As- 
semblersprache? 

1-3 Was ist der Unterschied zwischen einer Assemblersprache und 
einer hoheren Programmiersprache? 

1-4 Was ist ein Compiler? 

1-5 Was ist ein Linker? 

1-6 Was ist ein Interpreter? 


31 



1 Einfuhrung in das Programmieren mit FCR.H 


1-7 Welche Vor- und Nachteile hat FORTH? -Jberwiegen die Vorteile 
die Nachteile? 

1-8 Schreiben Sie ein FORTH-Progr axnm , das funf Zahien addiert. 

1-9 Schreiben Sie ein FORTH -Prog r amir. , das fcigende Berechnung 
ausfuhrt: 

(3+4+5)6 

1-10 Schreiben Sie ein FORTH -Programm , das folgende Berechnung 
ausfuhrt 


( 5+64-7+20 + 21 ) (8) (9) 


1-1 1 

Schreiben Sie 
Editor. Lassen 

das Programm aus Ubung 9 
Sie das Programm laufen. 

jetzt mit 

Ihrem 

1-12 

Schreiben Sie 
Editor. Lassen 

das Programm aus Ubung 1 0 
Sie das Programm laufen. 

jetzt mit 

Ihrem 
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2 Grundlegende FORTH-Operationen 


dieses Kapitel erweitert unsere Kenntnis der FORTH-Operationen , 
rasierend auf dem im letzten Kapitel besprochenen Stoff. Wir 
teginnen mit einer Erorterung der elementaren arithmetischen 
:oerationen. Dabei beschaftigen wir uns auch noch einmal mit dem 
Stack und den Manipulationen , die mit dem Stack moglich sind. Aus 
kapitel 1 kennen wir bereits das Konzept der FORTH-Wdrter Oder 
.Commandos; das vorliegende Kapitel geht auf diesen Begriff noch 
:enauer ein und zeigt Ihnen auch, wie Sie eigene FORTH-Worter 
iefinieren konnen. Dadurch konnen Sie ein groBeres Programm in 
erne Folge kleinerer Unterprogramme aufteilen. Dies sollte Ihnen 
ermoglichen , bereits verhaltnismaBig komplexe FORTH -Programme zu 
schreiben. Nocheinmal: Im laufenden Text (nicht in den Beispiel- 
crogrammen) schreiben wir FORTH-Worter Oder Kommandos in Fett- 
druck. Dadurch konnen Sie die zur Sprache FORTH gehorigen Aus- 
trucke leicht vom restlichen Text unterscheiden . 


2 . 1 Arithmetische Operationen 


Sieser Abschnitt behandelt die wichtigsten arithmetischen Opera- 
tionen, namlich die Addition, Subtraktion, Multiplikation und 
division. Damit Sie in den fur FORTH wichtigen Aspekten auch ganz 
sattelfest werden , wiederholen wir hier auch einige der Informa- 
tionen, die bereits im letzten Kapitel gegeben wurden. Wir machen 
Sie auch mit einer praktischen Schreibweise vertraut, mit der man 
tie Stack-Operationen ausdrucken kann. 


2.1.1 Addition 


Wenden wir uns zuerst der Addition zu. Das FORTH-Wort, das eine 
Addition bewirkt, ist das Pluszeichen (+) . Wie Sie bereits aus 
dem letzten Kapitel wissen, sorgt + dafiir, daB die zwei obersten 
Zahlen auf dem Stack von diesem entfernt werden (pop) und statt 
dessen ihre Summe auf den Stack gepusht wird. Wir wollen einmal 
sehen, wie wir diese Vorgange im Stack symbolisch darstellen 
konnen. Angenommen , wir haben drei Zahlen n^, n 2 und n^ , wobei n^ 
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das oberste Stack-Element ist, das nachste usw. Erne bildliche 
Dars tellung dieser Situation sehen Sie in Abbildung 2-1 . Zur 
Darstellung dieses Zustands schreiben wir ganz einfach 


n 


1 2 3 



ABBILDUNG 2-1 : Ein Stack mit drei Zahlen 


Wie Sie sehen, wird der Inhalt des Stacks charakterisiert durch 
eine Folge von Zahlen, die durch Leerzeichen getrennt sind. Das 
am weitesten rechts stehende Element dieser Zahlenfolge stellt 
das oberste Stack-Element dar. Mit dieser Notation konnen wir den 
FORTH-Befehl + anschaulich charakterisieren . 


n 


1 


— > n 

summe 


( 2 - 2 ) 


Dabei soil n a [|tj die Summe der Zahlen n^ und n 2 darstellen. Wir 
bezeichnen emen Ausdruck, wie lhn Beispiel 2-2 bnngt, als 
Stack-Relation. Die Ausdrucke links vom Pfeil stellen den Zustand 
des Stacks vor Ausfuhrung des FORTH-Bef ehls dar, wahrend der 
Ausdruck rechts vom Pfeil den Zustand des Stacks nach der Ausfuh- 
rung des FORTH-Bef ehls reprasentiert . Naturlich ist es unnotig, 
den ganzen Stack auf zuschreiben ; lediglich die an der Operation 
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ceteiligten Werte sind von Interesse. Als Beispiel wollen wir ein 
<leines Programm schreiben, das funf Zahlen addiert und ihre Sum- 
re ausgibt. 


23 45 6 78 1 + + + + +. (RETURN) 


(2-3) 


Auf dieses Programm reagiert der Computer mit 


‘53 ok 


In Abbildung 2-2 sehen Sie den Zustand des Stacks wahrend ver- 
schiedener Schritte bei der Ausfuhrung dieses Programms . Abbil- 
dung 2-2a zeigt den Stack, nachdem die Zahlen 23, 45, 6, 78 und 1 
m dieser Reihenfolge gepusht worden sind. Nach Ausfuhrung des 
ersten (linkesten) + werden die obersten zwei Stack-Eintrage ent- 
fernt und durch ihre Summe ersetzt. Dies bedeutet, daB zwei Zah- 
len durch eine ersetzt werden, weswegen die verbleibenden Stack- 
Daten um eine Postition nach "oben" wandern. Diesen Zustand kon- 
nen Sie in Abbildung 2-2b sehen. Ahnlich zeigen die Abbildungen 
2-2c , 2-2d und 2-2e den Stack nach Ausfuhrung der zwei ten, dri t- 

ten und vierten Addition. SchlieBlich sorgt der Punktbefehl 
dafur, daB das Ergebnis (das oberste Stack-Element) ausgedruckt 
und vom Stack entfernt wird. Nach Beendigung des Programms ist 
der Stack also wieder leer, so, wie Sie es in Abbildung 2-2f 
sehen konnen . Natiirlich stimmt dies nur, wenn der Stack auch vor 
Ausfuhrung des Programms bereits leer war. 


2.1.2 Subtraktion 


Das FORTH-Wort fur die Subtraktion ist das Minuszeichen (-). Die 
Stack-Relation, die die Subtraktion charakterisiert , sieht 
f olgendermaBen aus: 


n. — > n 


diff 


(2-4) 
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a) 



b) 


c) 



d) 



e) 



f) 


Abbildung 

2- 

2: 

Zustand 


des 

Stacks 

wahrend der 

Ausfuhrung 

von 

Programm 

(2- 

3). 

a) Nachdem i 

23, 

45 

, 6 

9 

78 

und 

1 

auf 

den 

Stack 


gepusht wurden; b) nach Ausfuhrung des ersten +; c) nach Aus- 
fuhrung des zweiten +; d) nach Ausfuhrung des dritten +; e) nach 
Ausfuhrung des vierten +; f) nach Ausfuhrung des Punktkommandos . 


Dabei ergibt sich n _ . „ durch Subtraktion von n„ minus n^. Wie 

diff 1 2 

Sie sehen konnen , wird also das oberste Stack-Element vom zweiten 

Stack-Element subtrahiert. Ein Programm , das von der Zahl 5 die 3 

subtrahiert und das Ergebnis ausdruckt, sieht f olgendermaBen aus: 


53-. (RETURN) 


In Abbildung 2-3 konnen Sie wieder sehen, wie sich der Stack bei 
Ausfuhrung dieses Programms verhalt. 

Das Minuszeichen hat in FORTH eine doppelte Bedeutung; man kann 
es namlich dazu benutzen , negative Zahlen einzugeben. Schreiben 
wir in FORTH das Minuszeichen vor eine Zahl (ohne Leerzeichen da- 
zwischen!), so weiB FORTH, daB es sich dabei um eine negative 
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I I 

I 3 1 

I 1 

I 5 1 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 
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a) 


I 1 

I 2 1 

I 1 

I I 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 

I I 

b) 


I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

c) 


Abbildung 2-3: Zustand des Stacks bei Ausfiihrung des Programms 
(2-5). a) Nachdem 5 und 3 auf den Stack gepusht wurden; b) nach 
Ausfiihrung des c) nach Ausfiihrung des Punktkommandos . 


Zahl handelt. Das Minuszeichen ist in diesem Fall also kein 
FORTH-Bef ehl , vielmehr ist es "Teil" der Zahl. Deshalb fiihrt das 
Programm 


2 -5 - . (RETURN) 


dazu , daB als Ergebnis 7 ausgegeben wird. Wie Sie sehen konnen, 
befindet sich zwischen dem Minuszeichen und der Ziffer 5 kein 
Leerzeichen . Bekanntermafien sind alle Zahlen, mit denen wir es 
bisher zu tun gehabt haben, ganze Zahlen Oder Integers. Integers 
sind, wie Sie bereits wissen, Zahlen ohne Nachkommas tellen . Des- 
halb diirfen sie auch nicht mit einem Dezimalpunkt geschrieben 
werden. (Alle Computersprachen benutzen zur Darstellung von Nach- 
kommastellen die amerikanische Schreibweise; FORTH bildet hier 
keine Ausnahme. In der amerikanischen Schreibweise wird das Dezi- 
malkomma durch einen Dezimalpunkt dargestellt . ) Die Integers, mit 
denen wir in FORTH arbeiten konnen, diirfen allerdmgs nicht be- 
liebig groB sein. Sie miissen sich zwischen -32768 und 32767 ein- 
schlieBlich bewegen. Falls Ihr Programm eine Zahl berechnet, die 
sich nicht innerhalb dieses Bereichs befindet, dann erhalten Sie 
ein f alsches Ergebnis ! . Natiirlich ist es auch moglich, Zahlen von 
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groBerem Betrag bei Berechnungen herar.zuzi *!•£.- - - - dies geht, 

erfahren Sie in Kapitel 5* 


2.1 .3 Multiplication: 


Multiplication druckt man in FORTH mit cer *:r: * . Bei Aus- 
fiihrung der Multiplication werden die zve i :cer=:=i Stack -Elemen- 
te entfernt und miteinander multipli zierc . la-acc wird das Pro- 
dukt auf den Stack gepusht. Die Stack-Re let i r»r : lr die Multipli- 
cation lautet: 


n- n r 


--> n 


prod 


(2-7) 


Dabei ist n das Produkt der Zahlen n. und r.„ . rerrachten wir 

einmal das ?o?gende FORTH-Programm : 


24 5 3 - * . (RETURN) (2-8) 


Abbildung 2-4 zeigt Ihnen wieder den Stack re: den einzelnen 
Programmschritten. Abbildung 2-4a zeigt den Stack, nachdem 24, 5 
und 3 in dieser Reihenfolge gepusht wurden. Need Ausfuhrung des - 
werden die obersten zwei Elemente gepoppt , were: das oberste 
Stack-Element vom zweiten subtrahiert wird. Die Subtraktion hat 
das Ergebnis 2, welches nun als neues oberstes Element auf den 
Stack gepusht wird. Zuvor aber ist die 24 nach oben gewandert und 
ist somit das neue zweite Element auf dem Stack. Diesen Zustand 
zeigt die Abbildung 2-4b. Nun kommt die Multiplication an die 
Reihe; wieder werden die beiden obersten Stack-Elemente entfernt 
und wir erhalten ihr Produkt (48). Diese Zahl wird auf den Stack 
gepusht, wodurch der Zustand in Abbildung 2-4d entsteht. SchlieB- 
lich wird der Punktbefehl ausgefuhrt, das oberste Element gepoppt 
und ausgedruckt. Daraufhin ist der Stack leer (Abbildung 2-4d). 
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I 1 

I 3 1 

I 1 

I 5 1 

I 1 

I 24 I 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 

I I 

I I 

a) 


I 1 

I 2 1 

I 1 

124 1 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

I I 

b) 


I 1 

148 1 

I 1 

I I 

I 1 

I I 

X 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

I I 

c) 


I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 

I I 

I I 

d) 


ABBILDUNG 2-4: Der Stack fur das Programm 2-8; a) nachdem 24, 5 
und 3 in dieser Reihenfolge eingegeben wurden; b) nach Ausfiihrung 
des c) nach Ausfiihrung der Multiplikation ; d) nach Ausfiihrung 
des Punktkommandos . 


2.1 .4 Division 


Bis jetzt haben wir uns in unseren Erorterungen auf Integers be- 
schrankt, da dies die Darstellung vereinf achte . Wenn wir uns nun 
mit der Division befassen wollen, miissen wir der Arbeit mit Inte- 
gers jedoch noch einmal unsere Aufmerksamkeit schenken. Betrach- 
ten Sie einmal die Division von 5/2; das Ergebnis ist 2.5. (Be- 
achten Sie die amerikanische Darstellung von Bruchzahlen ! ) Wie 
Sie sehen, kann die Division zweier ganzer Zahlen ein nicht ganz- 
zahliges Ergebnis haben. Was macht nun FORTH in solch einem Fall? 
Es la£t ganz einfach den Bruchteil des Ergebnisses weg. Wenn wir 
die obige Divisionsaufgabe unserem FORTH-System stellen, dann 
erhalten wir als Ergebnis die 21 Der Faktor 0,5 ist deshalb noch 
nicht verloren, denn es gibt in FORTH eine Moglichkeit, an den 
Divisionsrest bei ganzzahliger Division heranzukommen. In diesem 
Fall wird der Divisionsrest 1 . (Es gibt natiirlich auch die Mog- 
lichkeit, in FORTH mit Bruchzahlen zu arbeiten; dies besprechen 
wir jedoch erst in Kapitel 5.) Bei der Arbeit mit negativen Zah- 
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len verhalt es sich genauso. So ergibt -14/3 den Quotienten -4 
mit Rest -2/3. Das Divisionsergebnis ist also -4, die Nachkomma- 
stellen (2/3) werden einfach f allengelassen . Diese Division hat 
den Rest -2. Die Division von 14/(-3), die anscheinend gleich der 
obigen ist, fiihrt dennoch auf ein anderes Erbgebnis. Wir konnen 
namlich schreiben 1 4/ ( — 3 ) = -4+(2/-3). In diesem Fall erhalten 
wir als Divisionsergebnis immer noch -4; jetzt ist der Divisions- 
rest jedoch 2. Probieren Sie ein wenig mit Ihrem FORTH-System 
herum, um herauszuf inden , wie es sich bei Division mit negativen 
Zahlen verhalt. 

Wir kennen bisher noch nicht das FORTH-Wort fur die Division; es 
ist der Schrags trich . Die Stack-Relation fur die Division lautet 


n — > n 


quot 


(2-9) 


Auch die Division entfernt, wie alle anderen ari thmetischen Ope- 
rationen, die wir bisher kennengelernt haben , die obersten zwei 
Stack-Elemente. n^ wird durch n 2 dividiert und der sich dabei 
ergebende Quotient auf den Stack gepusht. Beachten Sie, daft das 
zweite Stack-Element durch das erste Stack-Element dividiert 
wird. Bei Ausfiihrung des FORTH-Wortes / wird kein Divisionsrest 
berechnet. Dazu kommen wir etwas spater. Dividieren wir doch ein- 
mal 5 durch 3 und lassen uns das Ergebnis ausdrucken: 


53/. (RETURN) 


( 2 - 10 ) 


Abbildung 2-5 zeigt das zu diesem Programm gehorende Stack-Dia- 
gramm. Das Programm 2-1 0 hat uns allerdings keinen Divisionsrest 
geliefert; das liegt daran , daB das FORTH-Wort / sich nicht um 
den Divisionsrest kiimmert. Dafur gibt es ein spezielles Kommando 
in FORTH, namlich das Wort MOD; dieses dient zur Berechnung des 
Rests einer Division. Die Stack-Relation fur dieses Wort ist 


n . n„ 


-> n 


rest 


( 2-1 1 ) 


In diesem Fall ist n ^ der Rest aus der Division von n./n^. Wie 

rest 1 z 

Sie wissen, befand sich vor Ausfiihrung der Division die Zahl n 2 
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I 1 i 1 i 1 

I 3 I I 1 I I I 

I 1 i 1 i 1 

I 5 I I II I 

I 1 i 1 I 1 

I II II I 

I 1 i 1 i 1 

I II II I 

I II II I 

I II II I 

I II II I 

I II II I 

I II II I 

a) b) c) 

ABBILDUNG 2-5 Stack-Diagramm fur Prograiran (2-10); a) nach Einge- 
ben von 5 und 3 in dieser Reihenfolge; b) nach Ausfuhrung von /; 
c) nach Ausfuhrung des Punktkommandos . 


an oberster Stelle des Stacks. Das Vorzeichen von n ^ ist, ge- 

r e s t 

maB den Konventionen von FORTH-79, das gleiche wie das von n^ . 
Betrachten wir jetzt einmal das FORTH -Programm , das den Rest der 
Division von 5/3 liefert. 

5 3 MOD . (RETURN) (2-12) 


In Abb. 2-6 finden Sie das zugehorige Stack-Diagramm. 

Es ware nun schon, wenn wir in einem Programm beide GroBen , den 
Quotienten und den Rest, gleichzeitig berechnen konnten. Dafiir 
gibt es gliicklicherweise ein eigenes FORTH-Wort, namlich /MOD. 
Beachten Sie, daB in diesem FORTH-Wort zwischen dem Schragstrich 
und dem M kein Leerzeichen stehen darf. Die Stack-Relation, die 
dieses Wort charakterisiert , sieht f olgendermaBen aus: 
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I 1 

I 3 1 

I 1 

I 5 1 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 


I 1 

I 2 1 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 


I 1 

I I 

I 1 

I I 

I 1 

I I 

X 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 


a) b) c) 


ABBILDUNG 2-6: Stack-Diagramm fur Programm (2-12); a) nach Ein- 
geben von 5 und 2 in dieser Reihenfolge; b) nach Ausfuhrung des 
Wortes MOD; c) nach Ausfuhrung des Punktkommandos . 


Hier dividieren wir n^ durch 
vom Stack. Daraufhin werden 
n auf den Stack gepusht. 
funrung der Operation n^ das 
rung von /MOD befindet sich 
Hierzu ein Beispiel: 


n 2 und entfernen diese beiden Zahlen 

der Divisionsrest n und Quotient 

rest 

Wie Sie sehen konnen, ist vor Aus- 

oberste Stack-Element, nach Ausfuh- 

n ^ an oberster Stelle des Stacks, 
quot 


5 3 /MOD . . (RETURN) 


(2-14) 


Abbildung 2-7 zeigt das zugehorige Stack-Diagramm. Wie Sie sehen, 
wird nach Ausfuhrung von /MOD der Quotient gedruckt und vom Stack 
entfernt. Deshalb wandert die 2 nach oben und wird neues oberstes 
Element. Nach Ausfuhrung des zweiten Punktkommandos wird der 
Divisionsrest gedruckt und vom Stack entfernt. 
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I 1 

I 3 1 

I 1 

I 5 I 

I 1 

I I 

I 1 

I I 

I I 

I . I 
I I 

I I 

I I 

I I 

I I 

a) 


I 1 

I 1 I 

I 1 

I 2 1 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 

b) 


I 1 

I 2 I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

c) 


I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

d) 


ABBILDUNG 2-7: Stack-Diagramm fur das Programm (2-14). a) Nach 
Eingeben von 5 und 3 in dieser Reihenfolge; b) nach Ausfuhrung 
von /MOD; c) nach Ausfuhrung des ersten Punktkommandos; d) nach 
Ausfuhrung des zweiten Punktkommandos. 


Wenn wir also das Programm 2-14 laufen lassen, dann erhalten wir 
folgenden Output 


1 2 ok 


Als letztes Beispiel wollen wir ein Programm schreiben, das den 
Quotienten und Divisionsrest von 3016/(12+3+14)5 berechnet. (Be- 
achten Sie, daB die 5 im Nenner der Division steht.) Das zugeho- 
rige Programm sieht f olgendermaBen aus: 


30165 143 12++* /MOD . . (RETURN) 


(2-15) 


Abbildung 2-8 ist das Stack-Diagramm zu diesem Programm. Abbil- 
dung 2-8a zeigt den Stack nach Eingabe von 3016, 5, 14, 3 und 12 
in dieser Reihenfolge. In Abbildung 2-8b sehen wir den Stack, 


45 
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nachdem die beiden obersten Elemente entfernt und durch ihre Sum- 
me (15) ersetzt worden sind. Wie Sie sehen konnen , sind die 14, 5 
und 3016 jeweils um eine Position nach oben gewandert. Den Zu- 
stand des Stacks nach Ausfuhrung des zweiten + zeigt die Abbil- 
dung 2-8c . In Abbildung 2-8d sehen Sie das Ergebms der Multipli- 
kation der beiden obersten Stack-Elemente 29 und 5; sie werden 
durch das Produkt 145 ersetzt, und die Zahl 3016 wandert nach 
oben. Abbildung 2-8f zeigt den Stack, nachdem die Zahlen 145 und 
3016 gepoppt wurden und /MOD ausgefiihrt wurde. Jetzt befinden 
sich der Divisionsrest 116 und der Quotient 20 auf dem Stack, 
wobei der Quotient oberstes Stack-Element ist. Die Abbildung 2-8e 
und 2-8f zeigen den Stack zum Stand nach Ausfuhrung der beiden 
Punktkommandos . Dieses Programm bringt folgendes Ergebnis auf den 
Bildschirm Ihres Terminals: 

20 116 ok 

Beachten Sie die Reihenfolge , in der wir die Daten fur dieses 
Programm eingegeben haben. Wir wollten 12, 3 und 14 addieren. 
Deren Summe sollte als nachstes mit 5 multipliziert werden, und 
schlieBlich wollten wir 3016 durch das Ergebnis dieser Multipli- 
kation dividieren. Da 3016 die letzte Zahl ist, mit der etwas 
geschehen soil, muB sie sich auch als unterstes Element auf dem 
Stack befinden. Deshalb geben wir diese Zahl als erste ein, denn 
jedesmal , wenn eine neue Zahl auf den Stack gepusht wird , wandert 
die 3016 um eine Position nach unten. Die 5 geht als vorletzte 
Zahl in die ganze Operation ein und wird deshalb als zweites 
Element gepusht. Dann geben wir 14, 3 und 12 ein. Wenden wir uns 
jetzt den FORTH-Wortern in diesem Beispielprogramm zu. Das Pro- 
gramm soil als erstes die Summe der drei obersten Stack-Elemente 
berechnen. Deshalb stehen in dem Programm zuerst die beiden +- 
Worter. Deren Summe wollen wir als nachstes mit 5 mul tiplizieren; 
deshalb geben wir das Kommando *. Das nachste FORTH-Wort ist 
/MOD. Dies sorgt dafiir, daB 3016 durch das Berechnungsergebnis 
der letzten Operationen dividiert wird und sowohl Quotient als 
auch Divisionsrest auf den Stack gepusht werden. SchlieBlich 
brauchen wir noch zwei Punktkommandos, um Quotient und Rest auf 
den Bildschirm zu bringen. 
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I 

-I 

I- 

— 

-I 

I- 

— 

-I 

I 

-I 

I- 


-I 

I- 


-I 

I 1 2 

I 

I 

15 

I 

I 

29 

I 

I 145 

I 

I 

20 

I 

I 

116 

I 

I 

-I 

I- 

— 

-I 

I- 

— 

-I 

I 

-I 

I- 


-I 

I- 


-I 

I 3 

I 

I 

1 4 

I 

I 

5 

I 

13016 

I 

I 

116 

I 

I 


I 

I 

-I 

I- 

— 

-I 

I- 

— 

-I 

I 

-I 

I- 


-I 

I- 


-I 

I 1 4 

I 

I 

5 

I 

13016 

I 

I 

I 

I 


I 

I 


I 

I 

-I 

I- 

— 

-I 

I- 

— 

-I 

I 

-I 

I- 


-I 

I- 


-I 

I 5 

I 

13016 

I 

I 


I 

I 

I 

I 


I 

I 


I 

I 

-I 

I- 

— 

-I 

I- 

— 

-I 

I 

-I 

I- 


-I 

I- 


-I 

13016 

I 
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I 
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I 

I 

I 
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I 
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I 

-I 

I- 
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-I 

I- 
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-I 
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-I 

I- 


-I 

I- 

— 

-I 

I 

I 
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I 

I 


I 

I 

I 
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I 
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I 

I 

I 
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I 
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I 

I 

I 
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I 

I 


I 

I 

I 

I 


I 

I 


I 

I 

I 

I 


I 

I 


I 

I 

I 

I 


I 

I 


I 

I 

I 

I 


I 

I 


I 

I 

I 

I 


I 

I 


I 

I 

I 

I 


I 

I 


I 

a) 



b) 



c) 


d) 



e) 



f) 



I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

g) 

ABBILDUNG 2-8: Stack-Diagrairan fur Programm 2-15. a) Nach Eingabe 

von 3016, 5, 14, 3 und 12 in dieser Reihenfolge; b) nach Ausfilh- 
rung des ersten +; c) nach Ausfiihrung des zweiten +; d) nach 
Ausfiihrung von *; e) nach Ausfiihrung von /MOD; f) nach Ausfiihrung 
des ersten Punktkommandos ; g) nach Ausfiihrung des zweiten Punkt- 
kommandos . 
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2.2 Stackmanipulaticmen 


Dieser Abschnitt widmet sich einigen FORTH-Wortern , die es uns 
erlauben, den Stack zu manipulieren. Zuvor wollen wir uns jedoch 
iiberlegen , wozu diese Stackoperationen gebraucht werden konnten. 
Nehmen Sie einmal an, wir wollen das oberste Element des Stacks 
ausgeben , ohne es davon zu entfernen. Mit den bisherigen Sprach- 
mitteln ist uns das nicht moglich. Weiterhin konnen wir mit den 
bisher vorges tellten FORTH-Kommandos auch nicht den Ausdruck (12+ 
3+4) *5/6 berechnen, ohne Daten und Operations symbole miteinander 
zu vermischen. Das ist zwar moglich, aber in diesem Fall konnen 
wir fur diese Operation kein eigenes FORTH-Wort mehr definieren. 
(Mehr dariiber im nachsten Abschnitt.) Es sieht zwar so aus, als 
ware obiger Ausdruck in FORTH ganz leicht zu berechnen; bei ge- 
nauerer Betrachtung stellen wir jedoch fest, daJ3 wir die 6 nicht 
als oberstes Element auf den Stack bringen und deshalb die Divi- 
sion nicht wie verlangt ausgefiihrt werden kann . Darum miissen wir 
wissen, wie man den Stack manipulieren kann. 

DUP - Dieses FORTH-Wort dupliziert das oberste Stack-Element. Es 
wird durch folgendes charakterisiert : 


n — > n n 


(2-16) 


Ein Anwendungsbeispiel fur dieses Wort sowie das zugehorige Dia- 
gramm folgen: 


569 DUP (RETURN) 


(2-17) 


Angenommen , wir wollen das oberste Stack-Element drucken , ohne es 
dadurch fur immer vom Stack zu entfernen. Das folgende kleine 
Programm tut genau dies: 


DUP . (RETURN) 


(2-18) 
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I 1 i 1 

I 9 I I 9 I 

I 1 I 1 

I 6 I I 9 I 

I 1 i 1 

I 5 I I 6 I 

X X i X 

I I I 5 I 

I 1 i 1 

I II I 

X 1 i 1 

I II I 

I II I 

I II I 

I II I 

I II I 

I II I 

a) b) 


ABBILDUNG 2-9: Stack-Diagramm fur das Programm 2-17; a) nach 

Eingeben von 5, 6 und 9 in dieser Reihenfolge; b) nach Ausfuhrung 

von DUP. 


Wie Sie sehen, sorgt DUP dafur, daB die oberste Zahl dupliziert 
wird. Wenn nun als nachstes das Punktkommando ausgefilhrt wird, 
dann wird diese Zahl ausgegeben und vom Stack gepoppt. Da sie 
aber zuvor dupliziert worden war, ist sie noch einmal auf dem 
Stack vorhanden. Somit hat dieses Programm dafur gesorgt, daB das 
oberste Stack-Element ausgedruckt wird, aber auf dem Stack ver- 
bleibt. 

DROP - Das FORTH-Wort DROP sorgt dafur, daB das oberste Stack- 
Element gepoppt, aber nicht ausgegeben wird. Alle anderen Stack- 
Eintrage wandern urn eine Position nach oben. DROP wird charakte- 
risiert durch die Stack-Relation 


n — > (2-19) 

Abbildung 2-1 0 zeigt den Stack bei den einzelnen Schritten des 
folgenden Programms : 
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2 5 1 DROP (RETURN) 


I 1 

I 1 I 

I 1 

I 5 I 

I 1 

I 2 I 

I 1 

I I 

I 1 

I I 

I . I 
I . I 
I . I 
I I 

I I 

I I 

I I 

a) 


( 2 - 20 ) 


I 1 

I 5 I 

I 1 

I 2 I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I . I 
I . I 
I . I 
I I 

I I 

I I 

I 1 

b) 


ABBILDUNG 2-10: Stack-Diagramm fur Programm 2-20. a) Nach Einge- 

ben von 2,5 und 1 in dieser Reihenfolge; b) nach Ausfiihrung von 

DROP. 


Es mag so aussehen, als ob DROP em vollig iiberf liissiges Wort 
ware; wir werden aber noch sehen, daB es durchaus seinen Nutzen 
hat . 

Es gibt Programme, die unaufhorlich neue Zahlen auf den Stack 
legen. Dies kann f olgenschwere Konsequenzen haben. Der Stack ist 
namlich nichts anderes als ein Bereich im Arbeitsspeicher Ihres 
Computers. Wenn Sie fortgesetzt neue Daten auf dem Stack abspei- 
chern , dann wird er einmal voll werden. Der Versuch, in dieser 
Situation neue Datenelemente auf den Stack zu pushen hat zur Fol- 
ge , daB dazu Speichers tellen verwendet werden, die gar nicht fur 
den Stack vorgesehen sind! . Man spricht in diesem Fall von einem 
Stack-Uberlauf . Es kann dann z.B. passieren, daB Sie die Spei- 
cherstellen uberschreiben , in denen sich Ihr FORTH-System selbst 
befindet, und so das System "zum Absturz bringen" . In diesem Fall 
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bleibt Ihnen oft nichts anderes iibrig, als den Resetknopf zu 
driicken und Ihr System neu zu starten. Das bedeutet aber , daB 
a lie bisher eingegebenen Daten und Programme unwiederbringlich 
verlorengehen . Mit Hilfe von DROP konnen Sie aber unniitze Ein- 
trage vom Stack entfernen, so seine GroBe reduzieren und einen 
Stack-Uberlauf vermeiden. 

SWAP - Das FORTH-Wort SWAP vertauscht die obersten beiden Ein- 
trage auf dem Stack. SWAP wird durch folgende Stack-Relation cha- 
rakterisiert . 


R 1 n 2 “ _> n 2 n l ^ 2-21 ^ 

Erinnern Sie sich noch an unser Problem, den Ausdruck (12+3+14)* 
5/6 zu berechnen? Wir sind jetzt dazu in der Lage, namlich uber 
das folgende Programm: 

6514312++* SWAP /MOD . . (RETURN) (2-22) 


In Abbildung 2-11 sehen Sie das Stack-Diagramm fur dieses Pro- 
gramm. Die Teilabbildungen 2-1 Id und 2-1 1e zeigen die Wirkungs- 
weise von SWAP. Wie Sie sehen, sorgt es dafiir, daS die beiden 
obersten Stack-Elemente vertauscht werden. Beachten Sie, daB sich 
SWAP nur auf die obersten zwei Elemente auf dem Stack auswirkt. 
Enthalt Ihr Stack mehr als zwei Eintrage, so bleiben alle auBer 
den obersten beiden von der Operation SWAP unberiihrt. 

OVER - Ein weiteres nutzliches Wort zur Stack-Manipulation ist 
OVER. Dieses Wort dupliziert das zweite Element auf dem Stack und 
bringt das Duplikat an die oberste Stack-Position. Wir konnen 
OVER durch folgende Stack-Relation beschreiben: 


--> n. 


n 2 n 1 


(2-23) 


Folgendes Programm ist ein Anwendungsbeispiel fur OVER. 


2345 OVER (RETURN) 


(2-24) 
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I 1 

112 I 

I 1 

I 3 I 

I 1 

114 I 

I 1 

I 5 I 

I 1 

I 6 I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

a) 

I 1 

I 24 I 

I 1 

I 1 I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

f) 


I 1 

115 I 

I 1 

114 I 

I 1 

I 5 I 

I 1 

I 6 I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

b) 

I 1 

I 1 I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I - I 
I . I 
I . I 

g) 


i 1 

I 29 I 

I 1 

I 5 I 

I 1 

I 6 I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

c) 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

h) 


I 1 

I 145 I 

I 1 

I 6 I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

d) 


I 1 

I 6 I 

I 1 

I 145 I 

I 1 

I I 

I x 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

e) 


ABBILDUNG 2-11: Stack-Diagramm fur Programm (2-22). a) nach Ein- 
gabe von 6, 5, 14, 3 und 12 in dieser Reihenfolge; b) nach Aus- 
fuhrung des ersten + , c) nach Ausfuhrung des zweiten + ; d) nach 
Ausfiihrung des *, e) nach Ausfuhrung von SWAP; f) nach Ausfuhrung 
von /MOD; g) nach Ausfuhrung des ersten Punktkommandos; h) nach 
Ausfuhrung des zweiten Punktkommandos. 
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Das Stack-Diagramm fur dieses Programm sehen Sie in Abbildung 2- 
12. Weitere Anwendungsbeispiele fur OVER folgen spater. 


I 1 i 1 

I 5 I I 4 I 

I 1 i 1 

I 4 I I 5 I 

I 1 I 1 

I 3 I I 4 I 

I x i 1 

I 2 I I 3 I 

I 1 I 1 

I I I 2 I 

I 1 i 1 

I II I 

I 1 I 1 

I II I 

I II I 

I II I 

I II I 

I II I 


a) b) 


ABBILDUNG 2-12: Stack-Diagramm fur Programm 2-24. a) Nach Eingabe 
von 2, 3, 4 und 5 in dieser Reihenfolge; b) nach Ausfiihrung von 

OVER. 


PICK - Bei dem FORTH-Wort PICK handelt es sich urn eine generali- 
sierte Form von OVER. Mittels PICK konnen Sie jede beliebige Zahl 
auf dem Stack als neues oberstes Stack-Element duplizieren. Bei 
der Ausfiihrung von PICK wird die oberste Zahl auf dem Stack ent- 
fernt. Diese Zahl entscheidet dann , welcher Eintrag auf dem ver- 
bleibenden Stack dupliziert werden soil. Dies laBt sich durch 
folgende Stack-Relation ausdriicken: 


n 1 — > nnl (2-25) 
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Wir wollen uns die Funktionsweise von PICK anhand eines Beispiels 
verdeutlichen . 


32 345 567 189 764 3 PICK (RETURN) 


(2-26) 


Betrachten Sie dazu das Stack -Diagramm in Abbildung 2-13. Bei 
Ausfuhrung von PICK wird die 3, das oberste Stack-Element, ge- 
poppt. Als nachstes wird die Zahl, die drittes Stack-Element auf 
dem verbleibenden Stack ist, als neues oberstes Element dupli- 
ziert. PICK entscheidet also anhand des obersten Stack-Eintrags , 
welcher andere Eintrag dupliziert werden soli; dabei zahlt dieses 


oberste Stack-Element nicht mit! 
gleiche bedeutet wie OVER. 


I 1 

I 3 1 

I 1 

I 764 I 

I 1 

I 189 I 

I 1 

I 567 I 

I 1 

I 345 I 

I 1 

132 1 

I 1 

I I 

I a) I 


Beachten Sie, daB 2 PICK das 


I 1 

I 567 I 

I 1 

I 764 I 

I 1 

I 189 I 

I 1 

I 567 I 

X 1 

I 345 I 

I 1 

I 32 I 

I 1 

I I 

I b) I 


ABBILDUNG 2-13: Stack- Diagramm fur 2-26. a) Nach Eingabe von 32, 
345, 567, 189, 764 und 3 in dieser Reihenfolge; b) nach Ausfuh- 
rung von PICK. 

ROT - Das FORTH -Kommando ROT bringt das dritte Stack-Element an 
die oberste Stack-Position. Die Stack-Relation fur ROT lautet: 


n 


1 


n 2 n 3 _> n 2 n 3 n 1 


(2-27) 
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Hier ein Beispielprogramm fur den Einsatz von ROT. 


23 45 11 34 55 ROT (RETURN) 


(2-28) 


Die Abbildung 2-14 zeigt den Stack wahrend der Ausfuhrung dieses 
Programms. 2-1 4a stellt den Stack nach Eingabe der Daten dar. 2- 
14b zeigt, wie der Stack nach Ausfuhrung des ROT-Wortes aussieht. 

Wie Sie sehen konnen, wurde das dritte Stack-Element entfernt und 
auf den Stack gepusht. Es wurden ‘keine Stack-Elemente dupliziert; 
auch bleibt die Anzahl der Stack-Eintrage unverandert. 


I 1 i 1 

I 55 I 1111 

I I i 1 

I 34 I I 55 I 

I 1 i 1 

1111 I 34 I 

I 1 i 1 

I 45 I I 45 I 

X x i 1 

I 23 I I 23 I 

I 1 I 1 

I II I 

I x x 1 

I . I I . I 

I . I I . I 

I . I I . I 

I II I 

a) b) 

ABBILDUNG 2-14: Stack-Diagramm fur das Programm 2-28- a) Nach 

Eingabe von 23, 45, 11, 34 und 55 in dieser Reihenfolge; b) nach 

Ausfuhrung von ROT- 


ROLL - Bei ROLL handelt es sich urn eine generalisierte Form von 
ROT- Mit ROLL konnen Sie ein beliebiges Stack-Element ohne Dupli- 
kation an die oberste Stack-Position bringen . ROLL benutzt - 
ahnlich wie PICK - das oberste Stack-Element, urn herauszuf inden , 
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welcher Stack-Eintrag an die oberste Stelle gebracht werden soil. 
ROLL laBt sich also durch folgende Stack-Relation beschreiben: 


n i n n 2 


(2-29) 


Betrachten wir dazu das folgende Programm: 


41 456 23 17 56 34 4 ROLL (ENTER) 


(2-30) 


Abbildung 2-15 zeigt das zugehorige Stack-Diagramm. Im Teildia- 
gramm 2-1 5a sehen wir den Stack nach Eingabe von 41, 456, 23, 17, 
56, 34 und 4 in dieser Reihenfolge. Abbildung 2-1 5b zeigt den 
Stack nach Ausfuhrung von ROLL. Das oberste Stack-Element, in 
diesem Fall die 4, wird vom Stack gepoppt und steuert die nach- 
folgende Operation von ROLL. Es wird namlich der vierte Eintrag 
auf dem verbleibenden Stack, die 23, an oberste Position ge- 
bracht, und die Elemente unterhalb des vierten fiillen durch "Auf- 
rucken" die entstandene Liicke wieder auf. Wie Sie sehen konnen , 
ist 3 ROLL Equivalent zu ROT. 

DEPTH - Manchmal ist es wichtig zu wissen, wie viele Elemente 
sich auf dem Stack befinden. Das FORTH -Kommando DEPTH pusht eine 
Zahl auf den Stack, die diese Information liefert. Bei der Er- 
mittlung der Stack-Tiefe (das englische Wort "depth" bedeutet 
Tiefe) zahlt das Ergebnis dieser Operation nicht selbst zum 
Stack. Die Stack-Relation sieht folgendermaBen aus : 


— > n 


tiefe 


(2-31 ) 


Beachten Sie, daB n ^ die Stack-Tiefe vor Ausfuhrung des 
FORTH-Wortes DEPTH angiEt^ also den Zustand des Stacks, bevor 
n tiefe sel ^ st au ^ den stac k gebracht wurde. Sehen wir uns einmal 
ein Beispiel fur den Einsatz von DEPTH an. 


23 46 57 (RETURN) 

52 437 56 78 (RETURN) 
DEPTH . (RETURN) 


56 


(2-32) 
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I 1 

I 4 1 

I 1 

I 34 I 

I 1 

156 1 

I 1 

I 17 1 

I 1 

123 1 

I 1 

I 456 I 

I 1 

1411 

I X 

I I 

I 1 

I I 

I I 

I I 

I I 

a) 


ABBILDUNG 2-15: Stack-Diagramm 

gabe von 41 , 456, 23, 1 7, 56, 

nach Ausfuhrung von ROT. 


X 1 

123 1 

I 1 

134 1 

I 1 

156 1 

X 1 

I 17 1 

I 1 

I 456 I 

I 1 

I 41 I 

I 1 

I I 

I 1 

I I 

X 1 

I I 

I I 

I I 

I I 

b) 


fur Programm (2-30). a) Nach Ein- 
4 und 4 in dieser Reihenfolge; b) 


Abbildung 2-16 ist das zugehorige Stack-Diagramm. Erst einmal 
geben wir 23, 46 und 57 in dieser Reihenfolge ein. Daraus ergibt 
sich ein Stack-Zustand wie in Abbildung 2-1 6a. Als nachstes geben 
wir 52, 437, 56 und 78 ein. Die bisher auf dem Stack bef indlichen 
Zahlen werden durch Eingeben dieser vier neuen Werte urn insgesamt 
vier Positionen nach unten "gedruckt" . Als nachstes fuhren wir 
DEPTH aus . Da sich auf dem Stack jetzt insgesamt 7 Zahlen bef in- 
den , wird auch eine 7 auf den Stack gepusht; dies sehen Sie in 
Abbildung 2- 16c. SchlieBlich sorgt das Punktkommando dafiir, daB 
die 7 vom Stack gepoppt und auf Ihrem Terminal ausgegeben wird. 
Danach ergibt sich der Stack aus der Abbildung 2-1 6d. Die Teilab- 
bildungen 2-1 6b und 2-1 6d sind ganz of f ensich tlich identisch. Die 
Ausfuhrung von DEPTH und anschlieBendes Ausdrucken dieses Ergeb- 
nisses andern also nichts am Stack-Zustand. 
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I 1 

157 I 

I 1 

I 46 I 

I 1 

I 23 I 

I 1 

I I 

1 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

a) 


I 1 

I 78 I 

I 1 

I 56 I 

I 1 

I 437 I 

I 1 

I 52 I 

I 1 

157 1 

I 1 

I 46 I 

I 1 

I 23 I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I - I 
I . I 

b) 


I 1 

I 7 1 

I 1 

I 78 I 

I 1 

I 56 I 

I 1 

I 437 I 

I 1 

I 52 I 

I 1 

I 57 I 

I 1 

I 46 I 

I 1 

I 23 I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

c) 


I 1 

178 1 

I 1 

156 1 

I 1 

I 43 7 I 

I 1 

I 52 I 

I 1 

I 57 I 

I 1 

I 46 I 

I 1 

I 23 I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

d) 


ABBILDUNG 2-16: Stack-Diagramm fur Programm 2-30. a) nach Eingabe 
von 23, 46 und 57 in dieser Reihenfolge; b) nach Eingabe von 52, 
437, 56 und 78 in dieser Reihenfolge; c) nach Ausfiihrung von 
DEPTH; d) nach Ausfiihrung des Punktkommandos . 


2.3 Definieren eigener FORTH-Worter 


Die bisher besprochenen FORTH-Worter werden beim Kauf Ihres Sy- 
stems mit ausgeliefert , sind also schon herstellerseitig einge- 
baut. Einer der groSten Vorteile von FORTH besteht aber darin, 
daB Sie Ihre eigenen Worter schreiben und diese in den FORTH- 
Worterschatz mit aufnehmen konnen. Dieser Abschnitt widmet sich 
diesen benutzerdef inierten FORTH-Wortern . Sie versetzen uns in 
die Lage, umfangreiche und komplizierte Programme zu schreiben. 
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Zum Definieren eines eigenen FORTH-Wortes verwenden Sie die Kom- 
mandos : sowie ; . Wir wollen uns dies an einem Beispiel deutlich 
machen. Dazu definieren wir ein neues FORTH-Wort mit dem Namen 
ADD3 , welches drei Zahlen addiert und die Summe auf dem Bild- 
schirm ausgibt. Die Definition geht ganz einfach: 


: ADD* + + . ; (RETURN) 


(2-33) 


Sehen wir uns einmal genauer an, was wir eben gemacht haben. Wir 
haben mit dem Kommando : begonnen, auf das ein Leerzeichen folgt . 
An das Doppelpunktkommando schlieBt sich der Name des neu defi- 
nierten FORTH-Wortes an, in diesem Falle ADD3 . Es folgen die ge- 
wunschten Operationen, die durch ein oder mehrere Leerzeichen 
getrennt sind. Die Definition wird durch ein Leerzeichen und ein 
nachfolgendes ; abgeschlossen. Nachdem wir die Informationen in 
(2-33) eingegeben haben, gibt es ein neues FORTH-Wort: unser 
ADD3 ! Wenn wir jetzt irgendwann eintippen: 


ADD3 (RETURN) 


(2-34) 


dann ist dies genauso, als hatten wir all die Kommandos getippt, 
die in der Definition hinter dem Namen des neuen FORTH-Wortes 
(bis zum Strichpunkt) stehen. Es ist sehr wichtig, daB Sie hinter 
dem Doppelpunkt, der die Definition einleitet, ein Leerzeichen 
freilassen, und ebenso vor dem Strichpunkt, der die Definition 
abschlieBt. Die Art und Weise, ein neues FORTH-Wort zu definie- 
ren, welche wir im Beispiel (2-33) kennengelernt haben, tragt den 
Namen Doppelpunkt-Def inition . Sie bewirkt, daB wir ADD3 genauso 
wie jedes andere FORTH-Wort benutzen konnen. Allerdings geht das 
benutzerdef inierte Wort ADD3 bei einem Warmstart des Computers 
verloren. Wir konnten dann zwar (2-33) erneut eingeben und so 
unser neues Wort wieder ins "Gedachtnis” von FORTH aufnehmen; be- 
quemer aber ist es, mit dem Editor die Definition (2-33) in einem 
Block abzuspeichern . Jedesmal , wenn dieser Block geladen wird, 
wird dann automatisch ADD3 zu einem Teil des FORTH-Systems . 

Wenn wir jetzt eingeben: 


27 34 56 ADD 3 (RETURN) 


(2-35) 
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dann ist das genau dasselbe, als hatten wir geschrieben 


27 34 56 + + . (RETURN) 


(2-36) 


In beiden Fallen erhalten wir als Ergebnis 
1 17 ok 

Noch einmal: Die Definition eines eigenen FORTH-Wortes muB einge- 
leitet werden durch das Wort :, gefolgt von einem Leerzeichen und 
abgeschlossen werden durch das Wort ; , dem ein Leerzeichen vor- 
ausgeht . 

Bei der Definition eines neuen Wortes konnen Sie auf alle FORTH- 
Worter zuriickgreif en , die fest eingebauter Bestandteil des Sys- 
tems sind, zusatzlich aber auch auf alle Worter , die Sie selbst 
bereits definiert haben. Es gilt also die Regel: Jedes Wort, das 
in einer neuen Definition benutzt wird, muB zu diesem Zeitpunkt 
dem System bereits bekannt sein. Die eingebauten Worter aus dem 
"Grundworterschatz” sind dies sowieso; auBerdem aber ist dem Sy- 
stem jedes in der Zwischenzeit hinzugekommene benutzerdef inierte 
Wort bekannt und kann in Definitionen eingehen. Die Definition 
eines neuen Wortes - ob durch Eingabe vom Terminal oder durch 
Laden des entsprechenden Blockes - fiihrt dazu, daB dieses Wort 
compiliert wird. Wenn Sie also z.B. die Definition (2-33) einge- 
ben, so wird in dem Augenblick, in dem Sie die Return-Taste driik- 
ken , das neue Wort ADD3 compiliert und dem System hinzugef iigt . 

Kommen in der Definition eines neuen Wortes andere benutzerdef i- 
nierte Worter vor , dann miissen Sie - gemafi dem soeben Gesagten - 
diese zuvor Ihrem System bekannt machen. Wenn z.B. eines der Wor- 
ter in der neuen Definition in einem Block definiert ist, dann 
miissen Sie erst den Block laden, bevor Sie versuchen konnen, 
dieses Wort zu benutzen. Die Inf ormationen in einem Block werden 
stets in der Reihenfolge geladen, in der sie sich im Block bef in- 
den. Sie konnen also in einem Block zwei Worter definieren, wobei 
die zwei te Definition bereits auf das erste Wort zuriickgreif t . 
Wie bereits erwahnt, wird ein fester Grundstock an "eingebauten" 
Wortern bei jedem Laden des Systems mitgeladen. Einige Systeme 
verfiigen aber noch uber zusatzliche Blocke mit sogenannten Erwei- 
terungsworten. Diese Sonderbef ehle werden nicht automatisch beim 
Laden des Systems berei tgestellt . Benotigen Sie diese Worter, sei 
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es fur eine Berechnung Oder zur Definition eines neuen eigenen 
Wortes, dann miissen Sie erst den Oder die Blocke laden, in denen 
sich die speziellen Worter befinden. Sie verhalten sich also ge- 
nauso wie selbstdef inierte Worter. 

FORTH -Programme bestehen in der Regel aus einer Vielzahl selbst- 
definierter Worter. Ein Wort benutzt dabei meistens ein oder 
mehrere andere zuvor def inierte Worter, die ihrerseits wieder auf 
andere Worter zuruckgreifen konnen. Man sagt in diesem Zusammen- 
hang auch, daS ein Wort ein anderes aufruf t . Dieses gegenseitige 
Aufrufen von Wortern ist eines der wichtigsten Charakteristika 
von FORTH. Sie sollten die einzelnen Definitionen moglichst kurz 
halten, um die Fehlersuche und Fehlerbesei tigung dadurch zu ver- 
einf achen . 

Zur Illustration des eben Gesagten wollen wir jetzt ein kurzes 
Programm schreiben , das den folgenden Ausdruck fur beliebige Wer- 
te von x berechnet: 


-4 n 3 _ 2 

3x + 2x + 5x 


+ 2x + 4 


(2-37) 


Abbildung 2-17 zeigt das zugehorige FORTH -Programm. Die Zahlen 
von 0 bis 15 am linken Rand sind nicht Teil des FORTH -Programms ; 
es handelt sich dabei um sogenannte Zeilennummern , die Sie nur zu 
sehen bekommen , wenn Sie sich den Block auf listen lassen, der Ihr 
Programm enthalt. Beim Schreiben oder Edieren eines Programms be- 
:<ommen Sie diese Zeilennummern noch nicht zu sehen. Wir nehmen 
sie allerdings in unsere Programmlis tings mit auf, um uns besser 
auf einzelne Teile des Programms beziehen zu konnen. Wenn sich 
unser Programm beispielsweise im Block 115 befindet, dann sorgen 
vi r nut 


1 1 5 LIST 


(2-38) 


dafi wir das Listing der Abbildung 2-1 7 erhalten. 
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0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

1 0 
1 1 
1 2 
1 3 

14 

15 

ABBILDUNG 2-17: Ein FORTH-Programm zur Berechnung des Polynoms 

(2-37) fur verschiedene Werte von x; das Programm enthalt auch 
die Definitionen von ZWEITE, DRITTE und VIERTE. 

Gehen wir nun einmal die Einzelheiten des Programms der Abbildung 
2-17 durch. Die Zeile 0 ist ein sogenannter Kommentar . Kommentare 
werden vom FORTH-System ignoriert. Ihr einziger Zweck besteht 
darin , den Programmierer Oder andere Leser des Programms mit In- 
formationen zu versorgen. Kommentare sind besonders dann fur Sie 
sehr hilfreich, wenn Sie sich langere Zeit nach Definition eines 
Programms wieder mit diesem auseinandersetzen miissen. Kommentare 
konnen an beliebiger Stelle in einem FORTH-Wort oder -Programm 
auftauchen. Zum Schreiben eines Kommentars tippen Sie lediglich 
eine offnende Klammer gefolgt von einem Leerzeichen. Der Text bis 
zur nachsten schlieBenden Klammer wird von FORTH ignoriert, wenn 
Sie das Programm compilieren lassen. 

Betrachten wir nun Zeile 1 . Hier definieren wir ein neues FORTH- 
Wort mit dem Namen ZWEITE, welches das oberste Stack-Element qua- 
driert, oder, wie man auch sagt, seine "zweite Potenz" liefert. 
(gie zweite Potenz bzw. das Quadrat einer Zahl x schreibt man als 
x , was nichts anderes als x mit sich selbst multipliziert oder x 
mal x ist). ZWEITE dupliziert als erstes die Zahl, die sich 
zuoberst auf dem Stack befindet.’ Dann werden die beiden obersten 
Stack-Eintrage (also zweimal dieselbe Zahl) vom Stack gepoppt und 
miteinander multipliziert. Wir erhalten somit die gewiinscbte 
Quadratzahl , die jetzt auf den Stack gepusht wird. 


ZWEITE, 

DRITTE, VIERTE und 

POLYNOM ) 

ZWEITE 

DUP * 

t 



DRITTE 

DUP 

ZWEITE * 



VIERTE 

DUP 

DRITTE * 



POLYNOM 


DUP DUP DUP 





VIERTE 3 * 





SWAP DRITTE 

2 

* + 



SWAP ZWEITE 

5 

* + 



SWAP 2 * + 





4 + . ; 
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Nun zu Zeile 2 in Abbildung 2-17. Hier sehen wir die Definition 
des Wortes DRITTE, welches dafur sorgt, daB das oberste Stack- 
Element entfernt und durch seine dritte Potenz ersetzt wird. (Die 
dritte Potenz einer Zahl ist diese dreimal mit sich selbst multi- 
pliziert, also x mal x mal x). Im ersten Schritt wird das oberste 
Stack-Element dupliziert. Dann rufen wir unser selbstdef iniertes 
ZWEITE auf. Inf olgedessen haben wir als oberstes Stack-Element 
das Quadrat der Ausgangszahl. Beachten sie, daB ZWEITE den rest- 
lichen Stack unverandert laBt. Deshalb ist das zweite Stack-Ele- 
ment immer noch die Ausgangszahl. Wenn wir nun den * ausfiihren, 
dann werden diese beiden Zahlen vom Stack gepoppt und miteinander 
multipliziert . Als Ergebnis erhalten wir die vierte Potenz der 
Ausgangszahl, die jetzt auf den Stack gepusht wird. 

Zeile 3 der Abbildung 2-17 definiert in bereits bekannter Manier 
das Wort VIERTE, welches das oberste Stack-Element entfernt und 
durch seine vierte Potenz ersetzt. (Die vierte Potenz einer Zahl 
x ist x viermal mit sich selbst multipliziert, also x mal x mal x 
mal x). Die Definition von VIERTE lehnt sich sehr stark an die 
von DRITTE an, auBer , daB VIERTE den gleichen Gebrauch von DRITTE 
macht, wie wir ihn von DRITTE und ZWEITE bereits kennen. 

Wie Sie sehen konnen, haben wir Zeile 4 leer gelassen. Dem FORTH- 
Compiler machen Leerzeilen nichts aus . Leerzeilen dienen ebenso 
wie ein oder mehrere Leerzeichen in FORTH als Trenner zwischen 
den einzelnen Befehlen. Zusatzliche Leerzeichen und Leerzeilen 
erfullen nur den Zweck, eine Definition fur den menschlichen 
Leser klarer und deutlicher zu gestalten. Aus der Sicht von FORTH 
hatten wir genausogut die Definitionen fur ZWEITE, DRITTE und 
VIERTE auf eine einzige Zeile quetschen konnen, so lange wir nur 
zwischen den einzelnen Wortern immer mindestens ein Leerzeichen 
frei lassen. Die Lesbarkeit eines Programms kummert den FORTH- 
Compiler nicht; er behandelt eine Folge von Zeilen in einem oder 
mehreren Blocken als zusammenhangenden Text. Deshalb sind zusatz- 
liche Leerzeichen und Leerzeilen nicht unbedingt erf orderlich . 
Sie sollten sie jedoch freiziigig einstreuen, urn die Lesbarkeit 
Ihres Programms zu steigern. Gut lesbare Programme lassen sich 
viel leichter fehlerfrei machen. Ein sauberer Programmierstil 
hilft auBerdem, Fehler zu vermeiden. 

Zeile 5 der Abbildung 2-17 definiert nun das Kommando POLYNOM, 
mit dem man Ausdrucke der Form (2-37) berechnen kann. Setzen wir 
fur x den Wert 5 ein, so geben wir ein: 
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5 POLYNOM 


(2-39) 


Nun zu den Details von POLYNOM. Zuerst erzeugen wir drei Duplika- 
te der obersten Stack-Zahl. Somit nimmt die fragliche Zahl die 
ersten vier Positionen auf dem Stack ein. Nun rufen wir VIERTE, 
woraufhin das oberste Stack-Element entfernt und durch seine 
vierte Potenz ersetzt wird. Daraufhin wird eine 3 auf den Stack 
gepusht. Die obersten zwei Zahlen werden nun gepoppt, miteinander 
multipliziert und ihr Produkt auf den Stack gepusht. ^ Demnach ist 
das neue oberste Stack-Element nichts anderes als 3x . In Zeile 7 
rufen wir als nachstes das Kommando SWAP. Es sorgt dafiir, daS die 
Ausgangszahl (5) zuoberst auf den Stack gebracht w^rd. D<ann folgt 
das Kommando DRITTE, das gemaB seiner Definition x auf dem Stack 
ablegt. Wir pushen nu^ die 2 auf den Stack und rufen das Wort *. 
Jetzt befindet sich 2x zuoberst auf dem Stack, gefolgt von 3x . 
Wenn nun durch + addiert wird, dann verschwind^n di^se beiden 
Zahlen vom Stack und werden durch ihre Summe ( 3x + 2x ) ersetzt. 
Machen Sie sich klar, daft jetzt die zweite Zahl auf dem Stack 
wieder die Ausgangszahl ist. Zeile 8 des Programms enthalt wieder 
einen SWAP-Befehl , der erneut die Ausgangszahl nach oben bringt. 
Nach Ausfuhrung von ZWEITE wird diese Zahl auf dem Stack durch 
ihr Quadrat ersetzt. Wir legen jetzt die 5 auf ^en Stack und 
duplizieren erneut. Daraufhin befindet sich 5x an oberster 
Stack-Position. Fiihren wir nun + aus , dann werden die beiden 
obersten Zahlen vom Stack entfernt und d^rch i^re Supjme ersetzt, 
welche jetzt den Wert des Ausdrucks 3x + 2x + 5x^ darstellt. 
Wieder bringt ein SWAP aus Zeile 9 die Originalzahl zuoberst auf 
den Stack. Sie wird dann mit 2 multipliziert und das Ergebnis auf 
die zweite Zahl im Stack addiert. Darauf addieren wir dann noch 
in Zeile 10 die Zahl 4 und erhalten so das Endergebnis, welches 
wir noch ausgeben lassen. 

Nach Laden des Blockes in Abbildung 2-17 konnen wir nicht nur das 
neue Wort POLYNOM uberall verwenden , ebenso sind die Befehle 
ZWEITE, DRITTE und VIERTE jetzt verfiigbar. Wenn wir z.B. eingeben 

5 DRITTE . (RETURN) 
dann sehen wir auf unserem Terminal 
125 ok 
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Wenn also einmal der Block aus der Abbildung 2-17 geladen ist, 
dann konnen alle darin enthaltenen neu definierten FORTH-Worter 
genauso benutzt werden , als waren sie eingebaute Worter. 


2.4 Mehr uber FORTH -Worter 


Im letzten Absatz haben wir die Grundtechniken eingefiihrt, iiber 
die man zum Schreiben eigener FORTH-Worter verfugen muB. Dieser 
Abschnitt beschaftigt sich nun mit einigen weiteren Details, die 
die Definition von FORTH-Wortern betreffen. Jedes verwendbare 
FORTH-Wort (sei es nun in das System eingebaut oder nachtraglich 
definiert bzw. geladen worden) ist im Hauptspeicher Ihres Compu- 
ters abgelegt. Die Befehle, die das einzelne Wort ausmachen , 
werden dabei hintereinander in auf einanderf olgenden Speicher- 
adressen gespeichert. Der Speicherplatzbedarf eines FORTH-Wortes 
hangt nattirlich von seiner Komplexitat ab. Jedesmal , wenn Sie ein 
FORTH-Wort aufrufen , wird der KontrollfluB Ihres Systems beein- 
fluBt von den Instruktionen , die fur das betreffende Wort im 
Computerspeicher enthalten sind. Der Speicherbereich des FORTH- 
Systems, in dem sich diese Instruktionen befinden, heiBt Worter- 
buch . Jeder Eintrag im Worterbuch setzt sich aus mehreren Kompo- 
nenten zusammen. Zusatzlich zu den Befehlen, die die Definition 
des einzelnen Wortes ausmachen, enthalt ein Eintrag auch noch 
eine Representation des Namens, den der Benutzer diesem Wort 
gegeben hat. Der Name dient zur Identif ikation des Wortes. AuBer- 
dem enthalt der Worterbucheintrag die Anfangsadresse des Wortes, 
das unmittelbar vor dem aktuellen Wort compiliert wurde . FORTH 
merkt sich also immer nur die Adresse des Worterbucheintrags , der 
vor der letzten Neudef inition compiliert wurde. Es hat den An- 
schein, als konnte das System mit dieser Methode immer nur den 
letzten Eintrag im Worterbuch finden. Wir haben aber gesagt, daB 
]eder Worterbucheintrag zusatzlich noch die Adresse des zuvor 
definierten Wortes enthalt. Wenn Sie ein FORTH-Wort aufrufen, 
dann iiberpruft das System den Namenteil des letzten Worterbuch- 
eintrags, urn zu sehen, ob dieser Eintrag das gewunschte Wort ent- 
halt. Falls ja, dann wird die Pr ogramras teuerung an die Instruk- 
tionen ilbergeben , die die Definition des Wortes ausmachen. Ist 
das gewunschte Wort aber nicht das letzte im Worterbuch, dann 
wird der vorletzte Worterbucheintrag untersucht. Das System kann 
diesen Eintrag finden, weil es sich ja beim letzten Worterbuch- 
eintrag einen Verweis auf den vorletzten Eintrag gemerkt hat. 
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1 

I 

I 

1 

I 

X 

1 

ZWEITE I 

X 

X 

DRITTE I 

X 

1 

VIERTE I 

1 

1 

POLYNOM I 

1 

ABBILDUNG 2—18: Graphische Darstellung des Worterbuches 

Jetzt beginnt die Prozedur von neuem: Das neue Wort (welches im 

gesamten Worterbuch das vorletzte ist) wird wieder untersucht, ob 
es das gewiinschte ist. Falls ja, erhalt es die Kontrolle, wird 
also ausgefiihrt, falls nein, geht FORTH dem bei diesem Wort ge- 
speicherten Ruckwartsverweis nach und gelangt so zum drittletzten 
Eintrag im Worterbuch. Wir sehen also, daB FORTH das Worterbuch 
so lange von hinten nach vorne durchsucht, bis der fragliche Ein- 
trag gef unden wird. Man spricht in diesem Zusammenhang von der 
Worterbuchsuche. Befindet sich das Wort allerdings nicht im Wor- 
terbuch, dann erhalt der Benutzer eine Fehlermeldung , und der 
ProzeB des Compilierens bricht ab. Es hat den Anschein , als ob 
diese Form der Worterbuchsuche auBerst umstandlich sei; in Wirk- 
lichkeit geht sie aber sehr schnell vor sich. 

Abbildung 2-18 ist eine graphische Darstellung des Zustands un- 
seres Worterbuches, nachdem der Block aus Abbildung 2-17 in das 
System geladen wurde . Wie Sie sehen konnen , hat der letzte Wor- 
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lerbucheintrag den Namen POLYNOM, der vorletzte Eintrag heiBt 
VIERTE, der drittletzte DRITTE usw. Wenn FORTH eine Aufgabe zu 
erledigen hat, dann trifft es sowohl auf Daten als auch auf Wor- 
ker . Wir konnen uns jetzt auch denken , woran FORTH den Unter- 
schied zwischen Daten und Befehlen (Wortern) erkennen kann : Daten 
sind nicht im Worterbuch eingetragenl 

Venn Sie von FORTH die Definition eines neuen Wortes verlangen , 
dann legt sich das System einen neuen Worterbucheintrag an. Das 
Worterbuch von FORTH warnt Sie, wenn Sie einen Namen doppelt 
vergeben wollen, laBt aber diese Moglichkeit durchaus zu. Wenn 
Sie vorsichtig damit umgehen , konnen doppelte Worterbucheintrage 
durchaus verarbeitet werden. Sie konnen aber auch Probleme mit 
sich bringen. Wir wollen uns den doppelten Eintragen kurz zuwen- 
den. Nehmen Sie an, daB wir mit dem Block aus Abbildung 2-17 
arbeiten, der BLOCK 115 sein soil. Weiterhin wollen wir annehmen, 
daB unsere Erstfassung des Programms Fehler enthalt. Deshalb 
edieren wir den Block und laden ihn erneut. Jedesmal, wenn wir 
dies tun, werden aber auch neue Definitionen fur die Worter 
ZWEITE , DRITTE, VIERTE und POLYNOM im Worterbuch abgelegt. Norma- 
lerweise kummert uns das nicht, denn FORTH findet stets zuerst 
die letzte Definition im Worterbuch, d.h., die neueste und somit 
f ehlerfreieste . Wir konnen also die Warnungen liber Wortduplikate , 
die uns FORTH bringt, auBer acht lassen und mit der Programmier- 
arbeit weitermachen . Es konnte jedoch ein anderes Problem auf- 
tauchen. Wenn unser Programm in Block 115 sehr viele Fehler 
enthalt, kann es notig sein, diesen Block verhal tnismaflig oft zu 
cearbeiten Oder neu zu laden. Das kann dazu fuhren, daB das 
Worterbuch, welches ja nicht nur die FORTH -Worter , sondern auch 
ihre Definitionen enthalt, unnotig aufgeblaht und zu groB wird. 
der fur das Worterbuch vorgesehene Speicherplatz reicht dann 
nicht mehr aus, und es werden Teile des FORTH-Systems uberschne- 
:en, was dazu fuhrt, daB sich der Rechner "aufhangt". 

Leider schleichen sich beim Programmieren fast immer Fehler ein, 
und die Situation stellt sich ein, daB ein Teil der im Arbeits- 
speicher des Rechners enthaltenen Information nutzlos ist. Es 
ware nun gut, "Schrott" aus dem Worterbuch entfernen und somit 
Platz fur neue, sinnvolle Eintrage gewinnen zu konnen. Dafiir gibt 
es ein spezielles FORTH-Wort, namlich FORGET. Dies leitet sich 
r.er vom Englischen "to forget" = vergessen. Nehmen wir einmal an, 
iaB der BLOCK 115 (vgl. Abbildung 2-17) geladen wurde . Wenn wir 

FORGET POLYNOM (2-40) 
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eingeben, dann wird das Wort POLYNOM aus dem Worterbuch entfernt, 
und der Platz, den es und seine Definition im Arbei tsspeicher 
eingenommen haben , wird freigegeben. 

Das Wort FORGET kann sogar noch mehr: Wenn wir FORTH dazu veran- 
lassen, ein Wort mittels FORGET zu vergessen, dann werden auch 
all die Worter mit vergessen, die nach dem betreffenden Wort 
definiert wurden. Wenn wir also z.B. den Block aus Abbildung 2-17 
laden und anschlieBend eingeben 


FORGET DRITTE (2-41 ) 


dann werden gleichzeitig die Worter DRITTE, VIERTE und POLYNOM 
aus dem Worterbuch entfernt. Wenn Sie also einen Block fur die 
Fehlersuche laden, dann ist es am besten, wenn Sie bei jedem er- 
neuten Ladevorgang dieses Blockes erst einmal die darin enthalte- 
nen Worter vergessen lassen. Dies kann man ganz einfach dadurch 
erreichen, daB man in den Block zwei weitere Eintrage mit auf- 
nimmt. Betrachten Sie dazu einmal die Abbildung 2-19, welche eine 
leichte Modifikation der Abbildung 2-17 darstellt. 


0 ( ZWEITE, DRITTE, VIERTE und POLYNOM ) FORGET F00 : F00 ; 

1 : ZWEITE DUP * ; 

2 : DRITTE DUP ZWEITE * ; 

3 : VIERTE DUP DRITTE * ; 

4 : 

5 : POLYNOM 

6 : 

7 : 

8 : 

9 : 

10 : 

11 
12 
1 3 

14 

15 

ABBILDUNG 2-19: Erweiterte Fassung der Abbildung 2-17, die dafur 

sorgt, daB zuvor geladene Versionen des Blockes automatisch ver- 
gessen werden; niitzlich fur Programmentwicklung . 


DUP DUP DUP 
VIERTE 3 * 

SWAP DRITTE 2 * + 
SWAP ZWEITE 5 * + 
SWAP 2 * + 

4 + , ; 
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Die ersten beiden Ins truktionen im Block lauten nun folgender- 
maBen 


FORGET F00 (2- 42a) 

: F00 ? (2-42b) 


Die Anweisung (2-42b) definiert ein Wort mit dem Namen FOO, das 
aber nichts tut. Dennoch macht FORTH pf lichtschuldigs t einen 
Worterbucheintrag fur dieses seltsame Wort FOO und merkt sich ein 
caar sehr einfache Instruktionen im Zusammenhang mit FOO, die 
dafiir sorgen, daB FOO beim Aufruf keinerlei Wirkung zeigt. Die 
erste Instruktion im Block ist aber (2-42a); wenn wir nun den 
Block aus Abbildung 2-19 erneut laden, er sich also bereits ein- 
r.al im Worterbuch befindet, dann sorgt dieses FORGET FOO dafur, 
daB die letzte Kopie des Blockes aus dem Worterbuch geloscht 
wird. Beim ersten Ladeversuch des Blockes erhalten Sie jedoch 
eine Fehlermeldung , da sich zu diesem Zeitpunkt noch kein Wort 
-I t dem Namen FOO im Worterbuch befindet. Sie miissen deshalb fur 
das erstmalige Laden des Blockes folgendes eingeben: 


: FOO ; (RETURN) 


(2-43) 


Laden Sie jetzt den Block. FOO wird sofort vergessen und an sei- 
r.er Stelle ein neues Wort FOO ins Worterbuch eingetragen. Beim 
r.achsten Laden des Blockes sorgt die Instruktion FORGET FOO da- 
fur, daB die alten Eintrage in diesem Block aus dem Worterbuch 
geloscht werden. Auf diese Art umgehen wir das Problem, daB bei 
:edem Neubearbei ten und Neuladen eines Blockes das Worterbuch mit 
-nnotigem Ballast aufgeblaht wird und unser Arbeitsspeicherbe- 
reich eingeengt wird. Denken Sie daran, daB Sie (2-43) nur einmal 
eingeben miissen, und zwar, wenn Sie diesen Block das erstemal 
laden. Wenn das Programm fehlerfrei ist, dann sollten Sie den 
lock edieren und die Eintrage FORGET FOO UND.: FOO ; aus dem 
lock entfernen. 

Is gibt noch andere Einsatzgebiete fur das Wort FORGET. Bei der 
Arbeit mit kleinen Computern wird ein Programm, das gerade in 
Intwicklung ist, manchmal so groB , daB es nicht mehr in den Ar- 
iel tsspeicher paBt und deshalb nicht mehr ausgefiihrt werden kann. 
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i 


Bei den meisten Programmiersprachen miissen Sie in diesen Fallen 
Ihr Programm verkiirzen oder die Datenmengen einschranken , mit 
denen es arbeiten kann . FORTH bietet hier eine andere Alternati- 
ve. Sie konnen Ihr Programm so schreiben, daB bestimmte Worter 
nur am Anfang des Programms benotigt werden , am Ende aber nicht 
mehr vorkommen. In diesem Fall brauchen Sie am Anfang des Pro- 
gramms nur diejenigen Worter zu laden, die an dieser Stelle 
benotigt werden. Der Speicherplat zbedarf wird so reduziert. Die 
zu Beginn des Programmlauf s geladenen Worter werden nur zur Be- 
rechnung der ersten Zwischenergebnisse herangezogen . 1st dies ge- 
schehen, so konnen Sie mittels FORGET unnotige Worter aus dem 
Worterbuch und somit dem Arbei tsspeicher des Computers loschen, 
wodurch wieder mehr Platz im Computer zur Verfiigung steht. Da- 
raufhin kann der Rest des Programms geladen werden und seine Ar- 
beit beginnen. 

All dies konnen bequemerweise Instruktionen ubernehmen , die in 
Ihrem FORTH-Programm selbst eingestreut sind , so daB sich der 
Benutzer, der Ihr Programm anwendet, urn diese Details gar nicht 
zu klimmern braucht. Die Vorgehensweise ist dabei etwa folgender- 
maBen: Sie laden einen bestimmten Block, der die fur die ersten 
Berechnungen benotigten Worter enthalt. Die letzten beiden Befeh- 
le in diesem Block sind dann ein FORGET sowie ein LOAD, das den 
nachsten Block in den Arbei tsspeicher holt. Die {Combination aus 
diesen beiden Befehlen sorgt dafur, daB die alten Worter geloscht 
werden und der neue Block geladen wird. In gewisser Weise benutzt 
diese Technik den Disketten- oder Kassettenspeicher als eine 
Erweiterung des Hauptspeichers . 

Die Methode , in einem Programm immer nur die gerade benotigten 
Teile in den Haup tspeicher "hereinzuladen" , tragt den Namen Over- 
lay-Technik. Dieser Fachausdruck leitet sich vom Englischen 
"Overlay" = Uberlagern her. Bei Anwendung der Overlay-Technik 
stellen Disketten- oder Kassettenspeicher einen sogenannten vir- 
tuellen Speicher dar. Diese Speichermedien ubernehmen namlich bei 
der Overlay-Technik die Rolle einer gedachten Hauptspeichererwei- 
terung. Overlay-Technik ist gerade bei kleineren Mikrocomputern 
sehr nutzlich, in anderen Programmiersprachen aber schwer zu 
handhaben. Bei einer herkommlichen Programmiersprache muBten Sie 
tatsachlich eine Folge von kleineren, unabhangigen Programmen 
schreiben, diese einzeln hintereinander laufen lassen und liber 
Dateien die Zwischendaten von einem zum anderen Programm iiberge- 
ben. Das Aufrufen der einzelnen Dateien und das Ubergeben der 
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Zwischendaten ist in diesem Fall Sache des Benutzers , der also 
rr.it zusatzlichem Arbeitsaufwand belastet wird. 

Kehren wir noch einmal zu dem Problem der doppelten Namen im 
r ORTH-Worterbuch zuriick. Betrachten Sie einmal das FORTH- Pro- 
rramm in Abbildung 2-20. Hier definieren wir zwei Worter mit dem 
Namen TEST1 . 


0 ( Ein Beispiel fur Namensduplikate ) 

1 : TEST1 2 . ; 

2 : RUNNER1 TEST1 3 . TEST1 

3 : TEST1 4 . ; 

4 : RUNNER2 TEST1 TEST1 RUNNER1 TESTl TESTl ; 

5 

6 

7 

8 
9 

10 


ABBILDUNG 2-20: Ein Beispiel fur doppelte Namen 


• . r ■ lie:, urs tier auf ganz einfache FORTH-Worter beschrankt. 

- - _ _e * defiriert das Wort TESTl, welches lediglich die Zahl 2 
: . s . it Zeile 2 definieren wir RUNNER 1 , welches das Wort 

a_ir'_ft J darn erne 3 ausgibt und erneut TESTl aufruft. 
- .a I die Definition ernes weiteren Wortes, das eben- 

-- . der Same- TESTl tract und die Zahl 4 ausgibt. Wir konnen 
. - er« enter •elcr.es TESTl gerade ausgefuhrt wird, indem wir 
*i r.* cr e.te 1 cder e ire 4 gedruckt wird. Sch lieBlich de- 

.ttrrn . _r tier, in lei.e 4 das Wert RUNNER2 , das zweimal TESTl 
nd t . lire das RUNNER 1 ertralt und schliefilich noch 

r— * . TEST* rJt. .a later des 31 or <es m Atcildung 2-2C wird 

♦ Mr— » 
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dann erhalten wir als Ergebnis eine 4. Das am weitesten hinten 
stehende Wort im FORTH-Worterbuch mit dem Namen TEST1 ist namlich 
unsere Definition aus Zeile 3 der Abbildung 2-20. Da das Worter- 
buch von hinten durchsucht wird, findet FORTH diese Definition 
als erste und wendet sie an. Jetzt wollen wir einmal sehen , was 
bei Ausfuhrung von RUNNER2 passiert. Wir erhalten folgendes Er- 
gebnis: 


4423244 (2-45) 


Wird RUNNER 1 als Teil von RUNNER2 aufgerufen, dann ruft dieses 
Wort seinerseits TEST1 . In diesem Fall wird aber das erste TEST1 
ausgefuhrt. Diese Version bringt eine 2 auf den Bildschirm. Wah- 
rend der Ausfuhrung von RUNNER1 beginnt also jede Worterbuchsuche 
mit dem ersten Wort, das unmittelbar vor der Compilierung von 
RUNNER 1 definiert wurde . Das ist der Grund , weswegen jetzt das 
erste TEST1 zur Ausfuhrung gelangt. Wenn andererseits RUNNER2 
ausgefuhrt wird, dann ruft dieses Wort nach Ausfuhrung von RUN- 
NER1 seinerseits wieder TEST1 . Diesmal wird jedoch zweimal die 4 
ausgegeben. Nachdem namlich die RUNNER 1 abgearbeitet ist, beginnt 
die Worterbuchsuche wieder bei dem letzten Wort, das unmittelbar 
vor RUNNER2 definiert wurde, da FORTH ja gerade mitten in der 
Compilierung und Ausfuhrung von RUNNER2 steckt. Wenn wir jetzt 
eingeben: FORGET TEST1 , dann ist dies genauso , als wurde der 
Block nur die Zeilen 0 bis 2 der Abbildung 2-20 enthalten. In 
diesem Fall wurde bei Aufruf des Wortes TEST1 eine 2 ausgegeben 
werden . 

Noch eine letzte Warnung: Das Wort FORGET laBt sich auf jeden 
Worterbucheintrag anwenden. Sie konnen also sogar den Befehl ge- 
ben: FORGET +! Seien Sie aber vorsichtig mit diesen Dingen, da 
hierbei FORTH einen GroBteil seiner wichtigsten Rechenf ahigkei ten 
verlieren und deshalb arbei tsunf ahig werden kann. Dann hilft 
Ihnen nur noch ein Systemstart weiter. 
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2.5 Weitere Kommandos zur Stack-Manipulation 


Dieser Abschnitt fuhrt einige weitere Kommandos ein , mit denen 
der Stack manipuliert werden kann und die gelegentlich sehr 
nutzlich sind. Die Kommandos sind den im Kapitel 2-2 eingefiihrten 
sehr ahnlich, operieren aber mit zwei Stack-Posi tionen gleichzei- 
tig. Im Kapitel 2-1 haben wir erfahren, da/3 in FORTH verarbeit- 
oare Zahlen zwischen -32768 und 32767 liegen miissen. In der Regel 
werden Integers - so nennt man Zahlen aus diesem Bereich - in 
zwei aufeinanderfolgenden Speicherwortern des Computers abgelegt, 
von denen ein jedes 8 Bit umfaBt. Dabei gehen wir davon aus, daS 
Ihr Computer Speicherworter von 8 Bit Lange verwendet. In diesem 
Fall arbeitet FORTH automatisch mit zwei Speicherwortern, die al- 
so, was den Programmierer betrifft, in FORTH als eine Einheit 
erscheinen. Wenn wir bisher iiber eine Integer auf dem Stack ge- 
sprochen haben, dann war dieser Stack-Eintrag eine Einheit, ob- 
wohl er maschinenintern aus zwei 8-Bit-Bytes (oder Maschinenwor- 
ten) zusammengesetzt ist. Manchmal ist es notig, mit Zahlen zu 
arbeiten, deren Betrag die Schranke 32767 iiberschreitet . FORTH 
stellt iiblicherweise Moglichkeiten fur die Arbeit mit wesentlich 
groBeren Integers zur Verfiigung. Solche Zahlen tragen den Namen 
doppelt genaue Integer". Dieser Zahlentyp beansprucht jedoch 
mehr Platz als die normalen, einfach genauen Stack-Eintrage . Sie 
werden deshalb auf zwei hintereinander folgenden Stack-Positionen 
gespeichert. Wenn wir den Stack manipulieren wollen, darauf aber 
doppelt genaue Zahlen abgelegt sind, dann brauchen wir spezielle 
Befehle, die Paare von Stack-Positionen manipulieren. Urn etwa 
eine doppelt genaue Integer mittels DROP vom Stack zu entfernen, 
•muBten wir das Wort DROP zweimal ausfiihren. 

Das Rechnen mit doppelt genauen Integers erlautern wir noch ein- 
mal ausfiihrlich in Kapitel 5. Hier wollen wir uns nur mit den Be- 
fehlen beschaf tigen , die zur Manipulation eines Stacks mit dop- 
pelt genauen Eintragen benotigt werden. Diese Worter konnen wir 
aber nicht nur bei doppelt genauen Integers, sondern auch bei 
einfach genauen Eintragen benutzen. Sie konnen namlich genausogut 
Paare von einfach genauen Zahlen manipulieren, wie man sie zur 
Bearbeitung eines doppelt genauen Eintrags benutzen kann. In der 
Regel gehoren die hier besprochenen Befehle nicht zu dem FORTH- 
Kern, der automatisch geladen wird; es handelt sich vielmehr um 
Erweiterungsworter , die Sie vermutlich selbst in den Speicher 
bringen miissen. 
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2DUP - Dieses Wort dupliziert die obersten beiden Positioner! des 
Stacks, also entweder die obersten beiden Integers oder die ober- 
ste doppelt genaue Zahl. 2DUP ist charakterisiert durch die 
Stack-Relation 


n i n 2 — > n 1 n 2 n 1 n 2 (2-46) 

Wie Sie bereits wissen, steht in diesen Stack-Relationen "n" fur 
eine einfach genaue ganze Zahl (Integer). Wir wollen in Zukunft 
doppelt genaue Zahlen mit dem Buchstaben "d M abkiirzen und konnen 
dann die Stack-Relation fur das Wort 2DUP f olgendermaBen formu- 
lieren: 


d — > d d (2-47) 


Ein genauer Vergleich von (2-47) mit (2-16) zeigt, daB diese 
Stack-Relationen denselben Sachverhalt zum Ausdruck bringen, 
auBer, daB hier zwei Integers "n" immer durch eine doppelt genaue 
Zahl "d M ersetzt wurden. Wenn wir wollen, konnen wir uns natiir- 
lich eine eigene Definition fur 2DUP schreiben; diese sieht so 
aus: 


: 2DUP DUP 3 PICK SWAP ; 


(2-48) 


Abbildung 2-21 stellt ein Stack-Diagramm fur folgendes Programm 
dar : 


4 2 2 DUP 


(2-49) 


2DROP - Das FORTH -Wort 2DROP entfernt die beiden obersten Inte- 
gers (bzw. die oberste doppelt genaue Zahl) vom Stack. Seine 
Stack-Relation ist 


— > 


(2-50) 
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bzw. mit doppelt genauen Zahlen 


d 1 — > (2-51) 


I 1 i 1 i 1 i 1 i 1 

I 2 I I 2 I I 3 I I 4 I I 2 I 

I 1 I 1 I 1 I 1 I 1 

I 4 I I 2 I I 2 I I 2 I I 4 I 

I 1 i 1 i 1 i 1 I 1 

I I I 4 I I 2 I I 2 I I 2 I 

I 1 I 1 I 1 I 1 I 1 

I II II4II4II4I 

I 1 i 1 i 1 I 1 I 1 

I II II II II I 

I 1 I 1 I 1 I 1 I 1 

I II II II II I 

I II II II II I 

I II II II II I 

a) b) c) d) e) 


ABBILDUNG 2-21: Stack-Diagramm fur das Programm (2-48). a) Nach 
Eingeben von 4 und 2 in dieser Reihenfolge; b) nach Ausfuhrung 
von DUP; c) nachdem 3 auf den Stack gepusht wurde; d) nach Aus- 
fuhrung von PICK; e) nach Ausfuhrung von SWAP. 

2 SWAP - Mit dem FORTH -Kommando 2 SWAP werden die beiden obersten 
Stack-Elemente miteinander vertauscht. Dies kann man sich an fol- 
gender Stack-Relation deutlich machen: 


n 2 n 3 n 4 --> n^ n 4 n 1 n 2 (2-52) 

Eine eigene Definition von 2 SWAP konnte f olgendermaBen aussehen: 


: 2 SWAP ROT 4 ROLL SWAP (2-54) 
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Die Abbildung 2-22 ist ein Stack-Diagramm zum folgenden kleinen 
Programm: 


81797 2 SWAP (2-55) 


I 1 

I 7 I 

I 1 

I 9 I 

I 1 

117 1 

I I 

I 8 I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

a) 


I 1 

117 I 

I 1 

I 7 I 

I 1 

I 9 I 

I 1 

I 8 I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

b) 


I j 

I 4 I 

I 1 

117 I 

I 1 

I 7 I 

I 1 

I 9 I 

I x 

I 8 I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 

c) 


I 1 

I 8 I 

I 1 

117 I 

I 1 

I 7 I 

I 1 

I 9 I 

I x 

I I 

I 1 

I I 

I x 

I . I 
I . I 
I . I 

d) 


I 1 

117 1 

I 1 

I 8 I 
I x 

I 7 I 

I x 

I 9 I 

I x 

I I 

I j 

I I 

I x 

I . I 
I . I 
I . I 

e) 


ABBILDUNG 2-22: Stack-Diagramm fur Programmbeispiel 2-55. a) nach 
Eingeben von 8, 17, 9 und 7 in dieser Reihenfolge; b) nach Aus- 
fuhrung von ROT; c) nachdem 4 auf den Stack gepusht wurde; d) 
nach Ausfiihrung von ROLL; e) nach Ausfuhrung von SWAP. 


In der Regel werden die mit Ihrem FORTH-System mitgelief erten 
Worter etwas schneller laufen als die selbstdef inierten , die wir 
hier als Beispiel angegeben haben . 


2ROT - Mit dem FORTH-Wort 2ROT wird die dritte doppelt genaue 
Integer an die oberste Position des Stacks gebracht. Fur einfach 
genaue Integers sieht die Stack-Relation folgendermaBen aus: 


n n« n-, n. n c n c 


^ n n . n r 


n„ n. 


(2-56) 
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Bei doppelt genauen Zahlen haben wir 


d 1 d 2 d 3 “> d 2 d 3 d 1 (2 - 57) 

20VER - Das FORTH-Wort 20VER dupliziert die zweite doppelt genaue 
Zahl als oberstes Stack-Element. Fur einfach genaue Integers 
sieht die Stack-Relation so aus : 


^ < n n n 0 n j n ,« n » n n * n < n « 

i 2 3 4 1 2 3 4 1 2 

Bei doppelt genauen Integers haben wir 


(2-58) 


a, a 2 -> d, a 2 a, 


(2-59) 


Alle bisher eingefuhrten Worter zur Stack-Manipulation sind also 
vollig analog zu denen , die wir in Abschnitt 2-2 bereits fur ein- 
fach genaue Zahlen kennengelernt haben. 


2 - 6 Der Return-Stack 


Wir haben in den bisherigen Darstellungen stets ohne weitere 
Unterscheidung von "dem Stack" gesprochen; genaugenommen muBten 
wir jedoch vom Parameter-Stack bzw. Daten-Stack sprechen , da 
dieser Stack zur Speicherung der Daten Oder Parameter dient, mit 
denen die einzelnen Worter arbeiten. Die meisten FORTH-Program- 
mierer sprechen aber nur kurz vom "Stack". Es gibt jedoch noch 
einen zweiten Stack, den sog. Return-Stack (wortlich "Riickkehr- 
Stack" ) . Diesen Stack benotigt das FORTH-System zur Buchfiihrung 
uber die eigenen Operationen. Falls der Return-Stack durcheinan- 
derkommt , brechen alle Berechnungen ab, und Sie mussen Ihr System 
neu starten, wobei Sie moglicherweise alle Daten verlieren. Es 
gibt einige FORTH-Worter , mit denen Sie den Return-Stack manipu- 
iieren konnen. Es scheint so, als ob Sie fur diese Worter gar 
keinen Bedarf hatten , da ja immer die Gefahr besteht, das FORTH- 
System zu zerstoren. Befolgen Sie aber bei der Arbeit mit dem 
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Return-Stack einige einfache Regeln , dann konnen Sie diesen ohne 
Gefahr fur Ihre eigenen Funktionen einsetzen. 

Bei der Ausfiihrung ernes selbstdef inierten FORTH-Wortes bedient 
sich FORTH nicht des Return-Stacks. (Wir rmissen diese Feststel- 
lung spater noch etwas einschranken ; auf jeden Fall gilt sie fur 
alle bisher definierten Worter. ) Sie konnen also ebenso den Re- 
turn-Stack innerhalb eigener Worter heranziehen, solange Sie nur 
dafiir sorgen, daB d er Return-Stack nach Beendigung Ihres selbst- 
definierten Wortes wieder in seinem alten Zustand ist. 


FORTH-Programmierer setzen den Return-Stack ein , um Zwischener- 
gebnisse bei Berechnungen zu speichern. Angenommen, Sie wollen 
die 5. Zahl auf dem Stack mit 7 mul tiplizieren . Dazu konnten Sie 
mittels ROLL die 5. Zahl an die oberste Stack-Position bringen 
und anschlieBend nut 7 mul tiplizieren . Im AnschluB daran muBten 
Sie jedoch eine Folge von Operationen unternehmen , um das Produkt 
wieder an die funfte Stack-Position zu bringen. Einfacher ware 
es, die ersten vier Stack-Eintrage mittels POP zu entfernen und 
irgendwo zwischenzuspeichern; dadurch kame automatisch der funfte 
Stack-Eintrag an oberste Stelle und konnte bequem mit 7 multipli- 
ziert werden. AnschlieBend miiBte man die vier soeben entfernten 
Zahlen vom Zwischenspeicher wegnehmen und der Reihe nach wieder 
auf den Stack pushen. Dies ist eine viel bequemere Losung des 
obigen Problems. Fur solche Zwecke - also das Zwischenspeichern 
von Werten wahrend einer Berechnung - setzt man oftmals den Re- 
turn-Stack ein. Deshalb betrachten wir jetzt zwei neue FORTH- 
Worter , mit denen wir Eintrage vom Parameter-Stack (auch Daten- 
Stack) auf den Return-Stack legen konnen und umgekehrt. Selbst- 
verstandlich funktioniert auch der Return-Stack nach demselben 
Prinzip wie der Daten-Stack (vgl. Kapitel 1-4), d.h., das zuletzt 
auf dem Stack abgelegte Element befindet sich zuoberst auf diesem 
und wird auch als erstes wieder vom Stack entfernt. 

>R - Das FORTH -Kommando >R poppt das oberste Stack-Element und 
pusht es auf den Return-Stack. Diese Operation laBt sich durch 
folgende Stack-Relation ausdriicken: 


n — > (2-60) 

In Abbildung 2-23 sehen Sie eine Darstellung des Daten-Stacks und 
des Return-Stacks vor und nach Ausfiihrung von >R. Zur Unterschei- 
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dung zeichnen wir in unseren Diagrammen den Return-Stack mit 
doppelt durchgezogenen Seitenbegrenzungen . 

R> - Das FORTH-Wort R> entfernt den obersten Eintrag auf dem 
Return-Stack und legt ihn auf den Daten-Stack. Die Operation R> 
ist also die "Umkehrung" von >R. Die zugehorige Stack-Relation 
lautet 

— > n (2-61 ) 
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a) b) 


ABBILDUNG 2-23: a) Daten-Stack und Return-Stack? b) Stand von 
Daten-Stack und Return-Stack nach Ausfuhrung von >R; der Return- 
Stack ist mit doppelt durchgezogenen Seitenlinien dargestellt* 

Abbildung 2-24 zeigt Ihnen den Daten-Stack und den Return-Stack 
vor und nach Ausfuhrung von R>. Wenn Sie Ihre eigenen FORTH-Wdr- 
ter definieren, dann mussen Sie darauf achten , daS stets eine 
gleiche Anzahl von >R- und R>-Befehlen in diesem Wort enthalten 
sind. Bei den bisher geschriebenen Programmen ist das sicher 
nicht sehr schwierig, da sich darin stets ein Verarbei tungs- 
schritt ohne Unterbrechung an den anderen anreiht. In dem nachfo- 
lgenden Kapitel werden wir jedoch noch Moglichkeiten kennenler- 
nen , mit denen Programme verzweigen und unterschiedliche Verar- 
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bei tungsschritte auslosen kdnnen. In solchen Programmen miissen 
Sie aufterst genau darauf achten, daB sich die ausgefiihrten >R- 
Befehle mit den im Programm aufgerufenen R>-W6rtern die Waage 
halten. Weiterhin werden wir in den folgenden Kapiteln Verschach- 
telungen von Programmen kennenlernen , also innerhalb eines Wortes 
eingebettete Programmstrukturen . Auch hier muB die Anzahl der 
Befehle, die auf den Return-Stack schreiben, genau gleich der 
Anzahl derer sein, die Daten vom Return-Stack entfernen. 


I- 

— 

-I 

II- 

— 

-II 

I- 

1 

II- 


-II 

I 

46 

I 

II 

97 

II 

I 

97 I 

II 

21 3 

II 

I- 

— 

-I 

II- 


-II 

I- 

1 

II- 


-II 

I 

23 

I 

II 

21 3 

II 

I 

46 I 

II 

45 

II 

I- 

— 

-I 

II- 


-II 

I- 

1 

II- 


-II 

I 

1 7 

I 

II 

45 

II 

I 

23 I 

II 

91 8 

II 

I- 

— 

-I 

II- 

— 

-II 

I- 

1 

II- 


-II 

I 


I 

II 

91 8 

II 

I 

I 

II 


II 

I- 

— 

-I 

II- 


-II 

I- 

1 

II- 


-II 

I 


I 

II 


II 

I 

I 

II 


II 

I- 

— 

-I 

II- 


-II 

I- 

1 

II- 

— 

-II 

I 


I 

II 


II 

I 

I 

II 


II 

I 


I 

II 


II 

I 

I 

II 


II 

I 


I 

II 


II 

I 

I 

II 


II 


a) b) 

Abbildung 2-24: a) Der Stack und der Return-Stack; b) die beiden 
Stacks nach Ausfiihrung von R>. 


Zuriick zu unserem Ausgangsproblem : Schreiben wir ein kleines Pro- 
gramm, das die fiinfte Zahl auf dem Stack mit 7 multipliziert. 


: 5MULT7 >R >R >R >R 7 * R> R> R> R> ; 


(2-62) 


Als erstes entfernen wir die obersten vier Zahlen vom Parameter- 
Stack und pushen sie auf den Return-Stack. Dann legen wir eine 7 
auf den Daten-Stack und fiihren das Wort * aus . Somit ist die ehe- 
dem fiinfte Zahl auf dem Daten-Stack mit 7 multipliziert worden. 
Als nachstes holen wir die zwischengespeicherten vier Werte wie- 
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der vom Return-Stack und legen sie auf den Daten-Stack. Infol- 
gedessen befindet sich der Return-Stack in seinem ursprunglichen 
Zustand; auch auf dem Daten-Stack ist alles beim alten, auBer daB 
die funfte Zahl mit 7 multipliziert wurde . 

Wir wenden uns nun einigen Befehlen zu, die eine Zahl vom Return- 
Stack kopieren und auf den Daten-Stack pushen. Diese Instruktio- 
nen verandern den Return-Stack nicht , weswegen wir auch nicht die 
gleichen VorsichtsmaBnahmen wie bei R> und >R treffen miissen. 

R@ oder I - Das Kommando R@ dupliziert den obersten Eintrag des 
Return-Stacks auf den Daten-Stack. Es wird also die Zahl, die 
sich zuoberst auf dem Return-Stack befindet, jetzt auch noch auf 
den Daten-Stack gepusht. Dadurch andert sich der Return-Stack 
nicht. Die zugehorige Stack-Relation sieht folgendermaBen aus : 


— > n 

retl 


(2-63) 


Die Abbildung 2-25 zeigt das Stack-Diagramm fur eine Anwendung 
von R@. Bei einigen FORTH-Systemen , einschlieSlich dem MMSFORTH, 
kann man anstelle des Befehls R@ auch das Wort I verwenden. GemaB 
den Standards von FORTH-79 sollte man I jedoch nur anwenden, urn 
einen Lauf index fur eine DO-Schleife zu erhalten. Wir werden uns 
diesem Thema in Kapitel 4 noch genauer zuwenden. (Beachten Sie, 
daB in einigen FORTH-Systemen das Wort R@ unter Umstanden gar 
nicht vorhanden ist; in diesem Fall miissen Sie auf I zuriickgrei- 
f en . ) 

I* - Das FORTH-Wort I* dupliziert die zweite Zahl am Return-Stack 
auf den Datenstack. Wiederum bleibt der Return-Stack unberuhrt 
von der Operation; lediglich der Daten-Stack wird urn einen Ein- 
trag erweitert. Dies charakterisiert die folgende Stack-Relation: 


— > n 


ret2 


(2-64) 


Beachten Sie, daB das Wort I" kein Teil des FORTH-79-Standards 
ist. Es ist jedoch im MMSFORTH und in anderen FORTH-Systemen im- 
plementiert . 
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a) b) 


ABBILDUNG 2-25: a) Der Stack und der Return-Stack; b) die beiden 

Stacks nach Ausfiihrung von R@. 


J - Mittels J konnen Sie die dritte Zahl des Return-Stacks auf 
den Daten-Stack duplizieren. Das Wort laBt den Return-Stack un- 
verandert. Seine Stack-Relation ist 


--> n 


ret3 


(2-65) 


Auch dies ist kein Wort von FORTH-79, jedoch in MMSFORTH und an- 
deren FORTH-Systemen implementiert . I ' und J konnen jedoch in 
FORTH-79 zusammen mit DO-Schleifen implementiert sein. Mehr darii- 
ber erfahren Sie in Kapitel 4. 

Wir wollen nun mit Hilfe der Worter, die wir zuletzt kennenge- 
lernt haben, unser Wort POLYNOM (vgl. Abbildung 2-17) noch einmal 
definieren. Die modifizierte Version sehen Sie in Abbildung 2-26. 
Wir gehen hier davon aus, daB die Worter ZWEITE, DRITTE und VIER- 
TE wie in Abbildung 2-17 zu Teilen Ihres FORTH-Systems gemacht 
wurden (z.B. durch Laden des entsprechenden Blockes). Wie Sie 
bereits wissen, konnen wir das Wort POLYNOM fur einen Wert von x 
= 5 anwenden , indem wir eingeben 
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5 POLYNOMIAL 

Betrachten Sie nun die erste Zeile der Abbildung 2-26. Der Wert 
fur x, in diesem Fall 5, wird vom Daten-Stack entfernt und auf 
den Return-Stack gepusht. AnschlieBend wird er in Zeile 2 vom 
Return-Stack dupliziert und befindet sich jetzt wieder auf dem 
Daten-Stack. Mit diesem Wert 5 arbeitet nun das Wort VIERTE, 
wobei anschlieBend das Ergebnis VQn VIERTE mit 3 multipliziert 
wird. Somit befindet sich jetzt 3x 4 an oberster Stack-Position. 
Zeile 4 dupliziert die zwischengespeicherte 5 erneut vom Return- 
Stack auf den Daten-Stack und ruft das Wort DRITTE. Danach pushen 
wir die 2 auf den Stack und fuhren * aus. Jetzt haben wir bereits 
3x^ und 2x auf dem Stack stehen. Wie Sie sehen konnen, gleicht 
das Programm in weiten Teilen dem aus Abbildung 2-17. Die meisten 
Details der Zeilen 4, 5 und 6 entsprechen der alten Version; die 
Programme unterscheiden sich lediglich in der Art, in der der 
Parameter 5 den einzelnen Wortern VIERTE, DRITTE und ZWEITE uber- 
geben wird. In Zeile 6 drucken wir schlieBlich das gewiinschte 
Ergebnis aus. Ehe wir nun jedoch unser Wort POLYNOM verlassen 
konnen, mussen wir erst alle Xnderungen, die wir am Return-Stack 
vorgenommen haben, wieder ruckgangig machen. Dafiir sorgt das R> 
in Zeile 7, denn es entfernt den obersten Wert vom Return-Stack 
und legt ihn auf den Daten-Stack. Jetzt haben wir wieder densel- 
ben Zustand auf dem Return-Stack wie bei Beginn des Programms . 
Wir konnten jetzt mit der Definition von POLYNOM aufhoren, wurden 
aber in diesem Fall auf dem Daten-Stack den zuletzt darauf ge- 
pushten Wert (in diesem Fall 5) hinterlassen . Dies ist schlechter 
Stil und fuhrt zu unnotigem Aufblahen des Stacks. Deshalb haben 
wir in Zeile 7 noch ein zusatzliches DROP aufgenommen. Damit 
verlassen wir die Wortdef inition . 
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ABBILDUNG 2-26: Modifizierte Version des Wortes POLYNOM 

aus Abbildung 2-17 
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2.7 Weitere Arithmetik-Befehle 


Wir betrachten nun einige weitere FORTH-Worter, mit denen wir 
mathematische Operationen ausfilhren konnen. Einige einfache Be- 
rechnungen werden namlich sehr haufig gebraucht, weswegen dafiir 
bereits vorgef ertigte FORTH-Worter zur Verfugung stehen. 

1+ - Das Wort 1+ entfernt den obersten Stack-Eintrag , erhoht 
( inkrementiert) seinen Wert um 1 und pusht anschlieBend diese 
Summe auf den Stack. Wir erhalten als Stack-Relation: 


n n+1 


( 2 - 66 ) 


Wir konnen natiirlich unser eigenes 1+ schreiben; dies sieht dann 
f olgendermaBen aus: 


: 1+1 + ; 


(2-67) 


Beachten Sie aber , daB das eingebaute Wort 1+ in der Ausfuhrung 
schneller ist als ein selbstgeschriebenes , da eingebaute Worter 
in Maschinensprache geschrieben sind. 

1- - Das FORTH-Wort 1- entfernt die oberste Zahl vom Stack, 
subtrahiert davon 1 (dekrementiert sie) und pusht das Resultat 
auf den Stack. Die zugehorige Stack-Relation lautet: 

n — > n-1 (2-68) 


2+ - Das FORTH-Wort 2+ entfernt die oberste Zahl vom Stack, 
addiert darauf 2 und legt das Ergebnis als neuen obersten Eintrag 
auf den Stack. Die Stack-Relation lautet. 


n — > n+2 


(2-69) 
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2 - - Das FORTH-Wort 2 - entfernt die oberste Zahl auf dem Stack, 
subtrahiert davon die 2 und pusht die Differenz wieder auf den 
Stack. Als Stack-Relation haben wir: 


n — > n-2 (2-70) 


2 * - Das FORTH-Wort 2 * entfernt die oberste Zahl vom Stack, 
multipliziert sie mit 2 und legt das Produkt auf dem Stack ab. 
Die Stack-Relation lautet 


n — > n*2 


(2-71 ) 


Dieses Wort ist zwar noch kein Bestandteil von FORTH-79, ist aber 
in MMSFORTH und in anderen FORTH-Systemen bereits implementiert . 

2 / - Das Wort 2 / entfernt die oberste Zahl vom Stack, dividiert 
sie durch 2 und legt den entstehenden Quotienten auf den Stack. 
Seine Stack-Relation ist 


n — > n/2 


(2-72) 


Es gibt keine Variante dieses Wortes , die - ahnlich wie MOD - den 
Divisionsrest berechnet. Auch dieses Wort ist noch kein Teil des 
FORTH-79-Standards , aber bereits in MMSFORTH und anderen Systemen 
implementiert. 


16 * - Das FORTH -Kommando 16 * entfernt die oberste Zahl auf dem 
Stack, multipliziert sie mit 16 und legt das Produkt auf den 
Stack. Ihre Stack-Relation lautet: 

n — > n* 1 6 (2-73) 


Dieses Kommando ist kein Teil von FORTH-79, aber bereits in MMS- 
FORTH und anderen FORTH-Systemen implementiert. 
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Wenden wir uns nun einigen Wortern zu, die Zahlenpaare manipulie- 
ren. Diese entfernen im allgemeinen die zwei obersten Eintrage 
vom Stack und ersetzen sie durch einen neuen Wert. 

MIN - Das FORTH-Wort MIN entfernt die zwei obersten Stack-Ein- 
trage und ersetzt sie durch den kleineren der beiden (das Mini- 
mum) . Seine Stack-Relation lautet: 


n 


1 


--> n . 

mm 


(2-74) 


Wir erhalten also mit 2 3 MIN . (RETURN) eine 2 auf dem Bild- 
schirm. Xhnlich ergibt 4 -30 MIN . (RETURN) das Ergebnis -30. In 
beiden Fallen ist der Stack nach Ausfuhrung des Punktkommandos 
leer . 

MAX - Das Kommando MAX entfernt die zwei obersten Zahlen auf dem 
Stack und legt die groflere der beiden dort wieder ab. Seine 
Stack-Relation lautet: 


n, n^ — > n 


max 


(2-75) 


Die nachsten beiden Worter arbeiten wieder nur mit der obersten 
Zahl auf dem Stack. In beiden Fallen wird diese Zahl entfernt und 
durch eine andere ersetzt. 

NEGATE - Das Wort NEGATE entfernt die oberste Zahl auf dem Stack, 
multipliziert sie mit -1 und legt dieses Produkt auf den Stack. 
Dadurch wird das Vorzeichen der Ausgangszahl vertauscht. Die 
Stack-Relation lautet: 

n — > -n (2-76) 


Wenn wir z.B. eingeben 


6 NEGATE . (RETURN) 


(2-77) 
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wird als Ergebnis -6 ausgedruckt. Nach Ausfuhrung des Punktkom- 
mandos ist der Stack wieder leer, vorausgesetzt, er war vor Aus- 
fiihrung dieses Wortes auch leer. 

ABS - Das FORTH-Wort ABS entfernt den obersten Stack-Eintrag und 
liefert dessen Absolutwert. Daher leitet sich auch der Name die- 
ses Wortes her. Der Absolutwert wird dann auf den Stack gelegt. 
Wie Sie wissen, ist der Absolutwert einer positiven Zahl einfach 
diese Zahl selbst. Den Absolutwert einer negativen Zahl erhalt 
man, indem man diese Zahl mit -1 multipliziert , also positiv 
macht. Dies wird durch folgende Stack-Relation ausgedruckt: 


n — > |n| 


(2-78) 


Wenn wir z.B. eingeben 


-6 ABS . (ENTER) 


(2-79) 


dann wird als Ergebnis 6 ausgedruckt. Danach (nach Ausfuhrung des 
Punktkommandos) ist der Stack leer, vorausgesetzt, er war auch 
vor Ausfuhrung dieses Wortes leer. 


2.7.1 Zufallszahlen 


Manchmal wollen wir auf unserem Rechner ein Zuf allsereigni s , wie 
etwa das Wiirfeln oder das Werfen einer Miinze , simulieren. Im Fal- 
le des Wiirfels muBten wir dazu Zahlen zwischen 1 und 6 in zufal- 
liger Reihenfolge erzeugen konnen. Beim Munzwurf benotigen wir 
nur Zahlen zwischen 0 und 1 (oder zwei beliebige andere Zahlen), 
die in zufalliger Reihenfolge auf dem Bildschirm erscheinen. Im 
allgemeinen kann das Bediirfnis auftauchen, eine zufallige Folge 
von Zahlen, die sich in einem vorgegebenen Bereich bewegen , vom 
Computer erzeugen zu lassen. Naturlich gibt es Compu ter pro gramme , 
die scheinbare Zuf allsfolgen von Zahlen erzeugen. Im streng ma- 
thematischen Sinn sind diese Folgen nicht zufallig, sie reichen 
jedoch fur die meisten Anwendungsgebiete aus. Man nennt sie aus 
diesem Grund auch 11 Pseudozuf alls zahlen" . Eine Moglichkeit zum 
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Erzeugen von Zuf allszahlen ist in FORTH-79 nicht vorgesehen. Ei- 
nige FORTH-Systeme kennen aber dennoch die dafur notigen Befehle. 
Wir wenden uns deshalb den Wortern zu, die in MMSFORTH zur Erzeu- 
gung von Zuf allszahlen zur Verfiigung stehen. 

RND - Das FORTH-Wort RND entfernt die oberste Zahl n^ vom Stack 
und erzeugt daraufhin eine Pseudozuf allszahl n. ; , die zwischen 1 
und n, liegt. Diese Zuf allszahl wird dann auf den Stack gelegt. 
Die Stack-Relation lautet. 


— > 


(2-80) 


Wenn wir z.B. eingeben: 24 RND (RETURN), dann wird die 24 vom 
Stack entfernt und dafur eine Zufallszahl zwischen 1 und 24 dort 
abgelegt. Der Zuf allszahlengenerator verwendet eine sogenannte 
Ursprungszahl , um eine zufallig erscheinende Zahlenfolge zu er- 
zeugen. Wenn wir die Ursprungszahl andern, dann sorgen wir auch 
dafur, dafi der Generator eine neue Zahlenfolge produziert. 

SEED - Um die Ursprungszahl andern zu konnen, mussen wir zwei 
FORTH-Worter einsetzen: Eines lautet SEED, das andere ist das 
Ausrufezeichen i . Wir schreiben sie in der Reihenfolge SEED i 
hin. Achten Sie auf das Leerzeichen. Die Bedeutung des Wortes I 
erlautern wir in Kapitel 6. Fur den Augenblick wollen wir die 
Folge von Wortern SEED I so behandeln , als handle es sich dabei 
um einen einzigen Befehl. Das FORTH-Wort SEED ! entfernt die 
oberste Zahl vom Stack und macht sie zur neuen Ursprungszahl fur 
den Zuf allszahlengenerator . Die Stack-Relation fur SEED i lautet: 


n — > (2-81 ) 


Mittels 10 SEED I (RETURN) andern wir die Ursprungszahl auf 10. 
Wenn wir die Ursprungszahl in zufalliger Folge andern wollen, 
dann konnen wir mittels RND eine Zufallszahl auf den Stack legen 
und diese dann durch das Wort SEED ! vom Stack entfernen und zur 
neuen Ursprungszahl machen. Es gibt aber auch ein Kommando, das 
all diese Schritte ausfiihrt. Bei Eingabe von RN1 wird die nachste 
Zufallszahl erzeugt und als neue Ursprungszahl fur die Reihe ver- 
wendet. Diese Operation hat keinerlei Auswirkungen auf den Stack. 
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Die Ursprungszahl bestimmt also die Folge von Pseudozuf allszah- 
len, die generiert werden. Bei gleicher Ursprungszahl erhalten 
wir stets die gleiche Folge. Im allgemeinen ist die Folge der 
Pseudozuf allszahlen sehr lang, aber endlich. Nach einer gewissen 
- unter Umstanden sehr langen Zeit - beginnt sie sich also zu 
wiederholen. Wenn wir ein Spielprogramm mittels RND schreiben, 
dann spielt dieses Programm deswegen immer auf die gleiche Weise. 
Deshalb ware es wunschenswert , die "Einsprungs telle" in die Reihe 
der Zuf allszahlen selbst bestimmen zu konnen. Dafur gibt es ein 
spezielles FORTH-Wort. 

RANDOMIZE - Das Wort RANDOMIZE benotigt keine Zahl auf dem Stack. 
Jedesmal, wenn Sie es aufrufen, andert RANDOMIZE die Position in 
der Folge der Zuf allszahlen . Wenn Sie also mit RANDOMIZE arbei- 
ten, dann beginnt Ihre Zahlenfolge an einer anderen Stelle und 
erscheint so unterschiedlich . 


2.7.2 Xndem der Zahlenbasis 


Anwender , die sich urn die Details der Maschinensprache nicht zu 
kiimmern brauchen , arbeiten fur gewohnlich im Dezimalsystem . Die- 
ses uns sehr vertraute System verwendet die Ziffern von 0 bis 9 
und wird vornehm als "Zahlensystem zur Basis 10" bezeichnet. Im 
Unterschied dazu verwenden Computer ein "binares" Zahlensystem, 
also ein System mit der Basis 2. Alle in Ihrem Computer gespei- 
cherten Zahlen und alle Werte, mit denen er rechnet, sind zur 
Basis 2. Bei der Ein- oder Ausgabe von Zahlen findet jedoch eine 
Umwandlung in das Zehnersystem statt, urn dem Menschen die Arbeit 
zu erleichtern. FORTH bietet Ihnen nun die Moglichkeit, diese 
Umwandlung zu andern, so daB Sie auch mit anderen Zahlensys temen 
aufier dem Dezimalsystem arbeiten konnen. Viele Systemprogrammie- 
rer verwenden die Basis 8 (das oktale Zahlensystem) oder die 
Basis 16 (das hexadezimale Dezimalsystem). Sie konnen Ihrem Sys- 
tem sagen, in welcher Basis Sie die Ein- oder Ausgabe von Zahlen 
wunschen. (Wenn Sie nicht mit anderen Zahlensys temen vertraut 
sind, dann konnen Sie diesen Absatz ubergehen. Fur ein Verstand- 
nis von FORTH ist es nicht wichtig, genauere Kenntnisse uber 
Zahlensysteme zu besitzen.) Die im Folgenden vorgestellten Worter 
sind bisher noch kein Bestandteil von FORTH-79. Dies kann sich in 
Zukunft aber durchaus andern. Auf jeden Fall sind sie in MMSFORTH 
und anderen FORTH-Sys temen implementiert . 
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HEX - Mit dem Wort HEX andern Sie die Basis fur die Ein-/Ausgabe 
von Zahlen in das Hexadezimalsystem urn. HEX hat keine Auswirkun- 
gen auf den Stack. Es andert also keine Zahl auf dem Stack Oder 
irgendwo anders in Ihrem Rechner. Die einzigen Auswirkungen , die 
HEX hat, beziehen sich auf Ihre Ein- und Ausgaben. Sie sollten 
das Wort HEX immer allein verwenden, es also nie zum Bestandteil 
eines anderen Wortes (einer Definition) machen. Kommt es doch 
einmal in einem FORTH-Wort vor , dann sollte dieses Wort keine 
Eingabe von numerischen Daten erfordern. 

DECIMAL - Das FORTH-Kommando DECIMAL funktioniert genauso wie 
HEX, auBer daB es die 10 zur neuen Zahlenbasis macht. Beim Star- 
ten Ihres FORTH-Systems ist die Zahlenbasis 1 0 ohnehin voreinge- 
stellt . 

OCTAL - Das Wort OCTAL stellt auf Zahlenein- und ausgabe im 
Oktalsystem (Basis 8) um; ansonsten funktioniert es genauso wie 

HEX. 

BASE - Das Wort BASE wird - ahnlich wie SEED - nur zusammen mit 
dem Wort ! verwendet. Einige FORTH-Systeme , wie z.B. MMSFORTH, 
ermoglichen es, die Ein-/Ausgabebasis auf andere Werte als 10, 8 
Oder 16 zu setzen. Diesen Effekt erreicht man durch zwei FORTH- 
Worter, namlich BASE J. Mit dieser Wortfolge wird die oberste 
Zahl vom Stack entfernt und zur Zahlenbasis fur alle folgenden 
Daten einer Ausgabe gemacht. Ihre Stack-Relation lautet: 


n — > 


(2-82) 


So ist z.B. 16 BASE ! gleichbedeutend mit HEX. 


2 . 8 Ubungsauf gaben 


In den folgenden Ubungsauf gaben sollten Sie soweit wie moglich 
Programme und benutzerdef inierte FORTH-Worter auf Ihrem Computer 
austes ten . 

2-1 Schreiben Sie ein FORTH -Programm , das folgende Operationen 
ausf iihrt : 
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3+4++S-6 

2-2 Wiederholen Sie Aufgabe 2-1 mit ( 3+4+1 8-25 ) *5 
2-3 Wiederholen Sie Aufgabe 2-1 mit (3+19-4)/6. 

2-4 Schreiben Sie ein FORTH -Programm , das den Quotienten und den 
Rest des folgenden Ausdrucks berechnet: 

( 3+4+6 )/7 

2-5 Wiederholen Sie Aufgabe 2-4 mit (3+4*6) /7 

2-6 Schreiben Sie ein FORTH -Programm , das die oberste Zahl auf 
dem Stack mit 5 multipliziert , die Antwort ausdruckt und die 
urspriingliche Zahl auf dem Stack hinterlaBt. 

2-7 Erortern Sie Einsatzmoglichkeiten fur das Wort DROP. 

2-8 Wiederholen Sie Aufgabe 2-4 mit dem Ausdruck (4+5-6*3)/7. 

Achten Sie darauf , Daten und FORTH-Worter nicht miteinander 
zu vermischen. 

2-9 Vergleichen Sie die FORTH-Worter OVER und PICK. 

2-10 Vergleichen Sie die FORTH-Worter ROT und ROLL. 

2-11 Schreiben Sie ein FORTH -Programm , das die Anzahl der Eintra- 
ge auf dem Stack ausgibt. 

2-12 Legen Sie dar , wie man in FORTH neue Worter definieren kann . 

2-13 Schreiben Sie ein eigenes FORTH-Wort, das die obersten vier 
Zahlen auf dem Stack addiert und dann das Ergebnis druckt. 

2-14 Wiederholen Sie Aufgabe 2-13; diesmal soil der Stack nach 
Beendigung des Wortes unverandert bleiben. 

2-15 Schreiben Sie ein FORTH-Wort, das den Durchschnitt der er- 
sten filnf Zahlen auf dem Stack berechnet. Geben Sie sowohl 
den Quotienten als auch den Divisionsres t aus . 
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2-16 Schreiben Sie ein FORTH-Programm zur Berechnung von 
6x^+3x^+2x^-21 x^-1 7x+5 
fur verschiedene Werte von x. 

3 

2-17 Schreiben Sie ein FORTH-Programm zur Berechnung von ax +b 
fur verschiedene Werte von a, b und x. 

2-18 Schreiben Sie ein FORTH-Programm zur Berechnung von 
3 2 

ax +bx +cx+d 

fur verschiedene Werte von a, b, c, d und x. 

2-19 Erortern Sie das FORTH-Worterbuch . 

2-20 Erortern Sie das FORTH-Wort FORGET. 

2-21 Legen Sie dar , wie FORGET bei der Fehlersuche einzusetzen 
ist . 

2-22 Was bedeutet der Ausdruck "doppelt genaue Zahl" ? 

2-23 Vergleichen Sie die FORTH-Kommandos DUP und 2DUP. 

2-24 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir- 
kung wie 2 DROP hat. 

2-25 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir- 
kung wie 2ROT hat. 

2-26 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir- 
kung wie 20VER hat. 

2-27 Welche Hauptaufgabe hat der Return-Stack? 

2-28 Welche Probleme konnen sich ergeben, wenn Sie den Return- 
Stack in selbstdef inierten Wortern heranziehen? Wie kann 
man diese Probleme vermeiden? 

2-29 Schreiben Sie ein FORTH-Wort, das die ersten funf Zahlen auf 
dem Stack multipliziert , den Stack aber ansonsten unveran- 
dert lafit. Bedienen Sie sich dazu des Return-Stacks . 
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2-30 Warum miissen Sie bei der Verwendung von >R und R< mehr Sorg- 
falt walten lassen als bei R@? 

2-31 Erortern Sie die FORTH-Worter I, I' und J. 

2-32 Wiederholen Sie Aufgabe 2-18, verwenden Sie aber diesmal den 
Return-Stack. 

2-33 Warum ist es sinnvoll , mittels DROP Daten vom Stack zu 
entfernen, die nicht mehr gebraucht werden? 

2-34 Schreiben Sie mit den in Abschnitt 2-7 eingefiihrten FORTH- 
Wortern ein neues FORTH-Wort, das 1 auf den obersten Stack- 
Eintrag addiert und dann das Ergebnis dupliziert. 

2-35 Schreiben Sie ein FORTH-Wort, das die kleinste der ersten 
vier Zahlen auf dem Stack ausgibt. 

2-36 Wiederholen Sie Aufgabe 2-35, lassen Sie jedoch den Stack 
unverandert . 

2-37 Wiederholen Sie Aufgabe 2-35, machen Sie diesmal aber die 
groBte Zahl ausf indig. 

2-38 Wiederholen Sie die Aufgabe 2-36, machen Sie diesmal aber 
die groBte Zahl ausf indig. 

2-39 Wiederholen Sie die Aufgabe 2-35, machen Sie diesmal aber 
den groBten Absolutbetrag ausf indig. 

2-40 Wiederholen Sie Aufgabe 2-36, machen Sie diesmal aber den 
groBten Absolutbetrag ausf indig. 

2-41 Wiederholen Sie Aufgabe 2-35, machen Sie diesmal aber den 
kleinsten Absolutbetrag ausf indig. 

2-42 Wiederholen Sie Aufgabe 2-36, machen Sie diesmal aber den 
kleinsten Absolutbetrag ausf indig. 

2-43 Vergleichen Sie die FORTH-Worter NEGATE und ABS. 

2-44 Was ist eine Zufallszahl? 

2-45 Was ist eine Ursprungszahl? 
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2-46 Schreiben Sie ein FORTH-Wort , das eine Zufallszahl zwischen 
1 und 55 erzeugt. 

2-47 Schreiben Sie ein FORTH-Wort, das eine Dezimalzahl in ihr 
hexadezimales Equivalent umwandelt. 

2-48 Wiederholen Sie die Aufgabe 2-46, wandeln Sie diesmal aber 
in eine Oktalzahl urn. 

2-49 Schreiben Sie ein FORTH-Wort, das funf Zahlen in hexadezima- 
ler Darstellung addiert und ihre Summe sowohl hexadezimal 
als auch dezimal ausgibt. 
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3 Elementare Ein- und Ausgabeoperationen 


Bisher konnten wir nur uber das FORTH-Wort • Zahlen auf dem Bild- 
schirm ausgeben. Dieses Kapitel wird Ihre Kenntnisse uber die 
Ein-/Ausgabe von Daten erweitern. Wir werden FORTH -Kommandos ken- 
nenlernen, die uns die Ausgabe von Textmaterial (Wortern) erlau- 
ben. Solcher Text kann dazu dienen, die Ergebnisse von Berechnun- 
gen zu erlautern und die Bildschirmausgaben lesbarer zu machen. 
Zusatzlich kann man mit Textausgaben den Benutzer zur Eingabe von 
gewiinschten Werten auf f ordern , was besonders fur die Benutzer 
eine groBe Hilf estellung ist, die keine erfahrenen Programmierer 
sind. Weiterhin werden wir Verfahren kennenlernen , mit denen wir 
Zahlendaten lesbarer gestalten konnen. 


3 . 1 Textausgabe 


Dieser Abschnitt widmet sich einigen FORTH-Wortern , mit denen wir 
Text auf dem Bildschirm des Terminals ausgeben konnen. Wenn wir 
etwa ein Programm laufen lassen, das die Summe von vier Zahlen 
berechnet, dann ware es wunschenswert , daB dieses Programm den 
Text "DIE SUMME LAUTET" ausgibt, urn sein Ergebnis zu erlautern. 
Wenn wir ferner ein Programm schreiben, das eine Wertetabelle 
ausdruckt (z.B. eine Quadrat- und Kubikzahlentabelle) , dann ware 
es wunschenswert, Uberschrif ten uber diese Tabelle drucken zu 
konnen . 

und " - mit den FORTH-Wortern und " kann man Textmaterial 
ausgeben. Wenn wir eingeben: 


JETZT DRUCKEN WIR TEXT " (RETURN) 


( 3-1 ) 


so bekommen wir auf unserem Bildschirm zu sehen: 


JETZT DRUCKEN WIR TEXT ok 


( 3 - 2 ) 
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Wie Sie sehen konnen , befindet sich ein Leerzeichen hinter dem 
Wort ebenso , wie sich hinter jedem FORTH-Wort ein Leerzeichen 

befinden muB. Der gesamte folgende Text hinter dem Leerzeichen 
wird auf dem Bildschirm ausgegeben. Er endet mit dem Kommando 
Diese beiden Worter haben keine Auswirkung auf den Stack. Ehe wir 
uns einem komplizierteren Beispiel fur die Ausgabe von Textmate- 
rial zuwenden, wollen wir noch einige weitere FORTH-Worter ken- 
nenlernen. 

#IN - Das FORTH -Kommando #IN dient der Eingabe von Zahlen. Wenn 
der FORTH-Interpreter auf #IN stoBt, dann unterbricht er seine 
Arbeit und gibt ein Fragezeichen auf Ihrem Bildschirm aus. An- 
schlieBend konnen Sie eine ganze Zahl im Bereich von -32768 bis 
32767, gefolgt von RETURN, eingeben. Die eingegebene Zahl wird 
auf den Stack gelegt, und FORTH fahrt mit der Arbeit fort. Das 
Wort #IN ist kein Bestandteil von FORTH 79, findet sich aber in 
MMSFORTH; die meisten anderen FORTH-Systeme verfiigen uber ahnli- 
che Worter. 

CR - Das FORTH-Wort CR gibt die Zeichen fur Wagenrucklauf und 
Zeilenvorschub auf Ihrer Konsole aus. Dies bewirkt, daB nachfol- 
gendes Textmaterial am Anfang der nachsten Zeile ausgegeben wird. 
Zwei CR-Kommandos hintereinander erzeugen somit eine Leerzeile, 
mit drei solchen Wortern erzeugen wir zwei Leerzeilen usw. Auch 
CR hat keine Auswirkungen auf den Stack. 

QUIT - Manchmal wollen wir aus asthetischen Grunden die Ausgabe 
von "ok" unterbinden, das FORTH nach jedem erfolgreich abgearbei- 
tetem Wort auf den Bildschirm bringt. Dies erreichen wir, wenn 
das letzte Wort in unserem Programm QUIT ist. Das Programm wird 
beendet, und FORTH ist bereit fur die Eingabe neuer Informatics 
nen, unterlaBt es jedoch, seine Berei tschaf tsmeldung "ok" auszu- 
geben. QUIT loscht zwar den Return-Stack, laBt aber den Daten- 
Stack unverandert. 

PAGE - In Programmen taucht oft die Notwendigkeit auf, den Bild- 
schirm zu loschen und auf einer neuen , "sauberen" Bildschirmsei te 
mit der Ausgabe zu beginnen. Diese Funktion erfiillt das FORTH- 
Wort PAGE- Es hat keine Auswirkungen auf den Stack. (Auch dieses 
Wort ist kein Teil von FORTH 79, jedoch in MMSFORTH implemen- 
tiert . ) 

Den Einsatz der bisher besprochenen FORTH-Worter wollen wir an 
einem Programm verdeutlichen , das die Summe von 4 Zahlen berech- 
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net. Das Programm unterscheidet sich von den bisher geschriebenen 
in einem wichtigen Punkt. Wir gehen davon aus, daB es von einem 
Benutzer bedient wird, der keine Erfahrung im Umgang mit FORTH 
hat. Deshalb erwarten wir nicht, daB dieser Benutzer erst seine 
Daten auf den Stack legt, ehe er das Wort aufruft. Stattdessen 
erfragt das Programm seine Daten selbst und erklart das Ergebnis 
seiner Berechnungen , ehe es dieses auf dem Bildschirm ausgibt. 
Wir sehen es in Abb. 3-1 . Einen Beispiellauf fur dieses Programm 
konnen Sie der Abb. 3-2 entnehmen. 


0 ( Beispielprogramm mit Benutzermeldungen und erklarendem Text ) 

1 : ADD4 PAGE 

2 ." Bitte bei jedem Fragezeichen eine Zahl eingeben " 

3 CR Eingabe mit RETURN abschliessen " CR 

4 #IN #IN #IN #IN CR 

5 + + + 

6 . " Die Summe der vier Zahlen lautet " CR 

7 . QUIT ; 

8 
9 

1 0 
11 
1 2 
1 3 

14 

15 

ABBILDUNG 3—1: Ein Programm, das im Dialog mit dem Benutzer 
Daten erfragt und sein Ergebnis beschriftet 


Bitte bei jedem Fragezeichen eine Zahl eingeben 
Eingabe mit RETURN abschliessen 
?4?5?6?7 

Die Summe der vier Zahlen lautet 
22 

ABBILDUNG 3-2: Beispiellauf des Programms ADD4 


Sehen wir uns das Programm einmal genauer an. In Zeile 1 teilen 
wir dem Compiler mit, welchen Namen wir dem neuen Programm geben 
wollen. Dieser lautet ADD4. Als ersten Schritt in unserem Pro- 
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gramm loschen wir mittels PAGE den Bildschirm. In Zeile 2 sehen 
wir ein Anwendungsbeispiel fiir das Textausgabewort und ■; die 
beiden Kommandos sorgen dafur, daB der Text "Bitte bei jedem 
Fragezeichen eine Zahl eingeben" auf Ihrem Bildschirm ausgegeben 
wird. Das erste Wort in Zeile 3 des Programms , CR, sorgt dafur, 
das der nachste Text auf einer eigenen Zeile beginnt. Auch ihn 
geben wir mittels . sowie " aus , und er lautet "Eingabe mit 
RETURN abschliessen " . Erneut sorgt ein CR dafur, daB nachfolgen- 
de Inf ormationen auf eine eigene Zeile zu stehen kommen. Jeder 
der vier #IN -Befehle in Zeile 4 bringt ein Fragezeichen auf den 
Bildschirm, danach wartet das System so lange, bis der Benutzer 
mittels RETURN eine Zahl eingegeben hat. Diesen Vorgang konnen 
wir der Abbildung 3-2 entnehmen. Die vom Benutzer eingegebenen 
Zahlen werden in der Reihenfolge auf den Stack gepusht, d.h. , die 
zuletzt eingegebene Zahl befindet sich zuoberst auf dem Stack. 
Die drei +-Worter in Zeile 5 entfernen nun diese vier Zahlen vom 
Stack und ersetzen sie durch ihre Summe . Zeile 6 sorgt dafiir, daB 
der Text "Die Summe der vier Zahlen lautet" auf dem Bildschirm 
erscheint. Die Summe selbst geben wir allerdings auf einer neuen 
Zeile aus, weswegen als letztes Wort in Zeile 6 noch ein CR 
steht. Die Ausgabe der Summe besorgt in Zeile 7 das Punktkomman- 
do. SchlieBlich beenden wir unser Programm mit QUIT, ohne daB bei 
Beendigung die Berei tschaf tsmeldung "ok" ausgegeben wird. 

SPACE - Manchmal wollen wir in unseren Text Leerzeichen einfii- 
gen. Dies bewerkstelligt das FORTH -Wort SPACE. SPACE ist also 
nichts anderes als eine Abkurzung fur . " M . Mit SPACE kann man 
Daten auf dem Bildschirm und im Text posi tionieren . Wir werden 
aber noch andere und bequemere Arten zur Formatierung von Ausga- 
bedaten kennenlernen . SPACE hat keine Auswirkungen auf den Stack. 

SPACES - Das FORTH-Wort SPACES entfernt die oberste Zahl vom 
Stack und gibt eine entsprechende Zahl von Leerzeichen aus. Die 
Stack-Relation lautet 


n — > 


(3-3) 


Ein Beispiel: 


6105. SPACES . (RETURN) 


(3-4) 
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Dieses Programm liefert folgendes Ergebnis: 

5 6 ok (3-5) 


Wie Sie sehen, stehen zwischen der 5 und der 6 insgesamt 10 
Leerzeichen. 

PTC - Manchmal wollen wir Inf ormationen an einer bestimmten Stel- 
le am Bildschirm erscheinen lassen. Sicher ist Ihnen schon die 
Schreibmarke Oder der Cursor auf Ihrem Bildschirm aufgef alien; 
ahnlich wie der Kugelkopf bei einer Kugelkopf schreibmaschine gibt 
der Cursor an, an welcher Stelle auf dem Bildschirm das nachste 
Zeichen erscheint, das Sie uber Ihre Tastatur eingeben. Mit dem 
FORTH-Wort PTC konnen Sie diesen Cursor positionieren . Dazu wird 
der Bildschirm in Zeilen und Spalten unterteilt. PTC entfernt die 
obersten zwei Eintrage auf dem Stack. Das oberste Stack-Element 
gibt die Spalte an, wahrend das nachste Stack-Element die Zeilen- 
nummer angibt. Sehen Sie zuerst im Bedienungshandbuch Ihres Com- 
puters nach, urn herauszuf inden , iiber wieviel Zeilen und Spalten 
Ihr Bildschirm verfugt. Sie sollten diese Werte in einem Programm 
auf keinen Fall iiberschreiten . Die Stack-Relation fur das Wort 
PTC lautet 


n 0 — > 


(3-6) 


Wenn wir also eingeben: 


10 6 PTC . " Gruess Gott M (3-7) 


dann wird die Meldung "Gruess Gott" auf Zeile 10 und Spalte 6 
ausgegeben. Das Wort PTC ist kein Bestandteil von FORTH 79, 
findet sich aber in MMSFORTH. 
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3 - 2 Druckausgabe 


Die soeben besprochenen Beispielprogramme konnten ihre Ausgaben 
nur auf dem Bildschirm machen. Verfugen Sie iiber einen Drucker, 
so werden Sie diesen natiirlich einsetzen wollen. Zwar ist in 
FORTH-79 kein spezielles Wort fur Druckerausgabe vorgesehen, die 
meisten FORTH-Systeme verfugen aber uber Kommandosj mit denen man 
Informationen am Drucker ausgeben kann. Wir besprechen hier die 
einschlagigen Kommandos des MMSFORTH-Systems . Diese Worter Oder 
ahnlich funktionierende werden wohl auch eines Tages zum Bestand- 
teil von FORTH-79 gemacht. 

PRINT - Das Wort PRINT sorgt dafiir, daB Ausgaben, die normaler- 
weise auf den Bildschirm gehen, auf dem Drucker erfolgen. PRINT 
laBt den Stack unberuhrt. Bei der Dateneingabe erscheinen die 
eingegebenen Daten normalerweise auch auf dem Bildschirm. Je nach 
der Arbeitsweise Ihres Systems kann es sein , daB PRINT keinen 
EinfluB auf die Darstellung von Eingabedaten hat. Diese erschei- 
nen nach wie vor auf dem Bildschirm und gelangen nicht auf den 
Drucker. Dafiir werden alle Program mausgaben auf den Drucker ge- 
schickt und sind auf der {Console nicht mehr zu sehen. 

PCRT - Das FORTH -Wort PCRT funktioniert genau wie PRINT, legt 
aber Programmausgaben zusatzlich auch auf den Bildschirm. PCRT 
laBt den Stack unverandert. Beachten Sie, daB PCRT keine Auswir- 
kung auf die Bildschirmdarstellung hat, sondern lediglich zusatz- 
lich eine Druckausgabe bewirkt. 

Sie sollten die Worter PRINT und PCRT nicht anwenden , wenn an Ihr 
System kein Drucker angeschlossen ist. In diesem Fall kann es 
sein, daB sich Ihr Computer "aufhangt" und Sie gezwungen sind, 
das System (unter Umstanden mit Datenverlust ) neu zu starten. 

CRT - Mit dem MMS FORTH -Kommando CRT wird die Wirkung von PCRT und 
PRINT aufgehoben. Nach Ausfuhrung von CRT wird die Druckausgabe 
beendet, und alle Datenausgaben gehen wieder auf den Bildschirm. 

Die meisten Kommandos, die wir im ersten Teil des Kapitels be- 
sprochen haben, funktionieren auch auf dem Drucker. Man kann also 
etwa mit PAGE den Drucker veranlassen, das Papier auf den Anfang 
der nachsten Seite vorzuschieben . Die genaue Funktionsweise kann 
jedoch von System zu System variieren. Spielen Sie deshalb ein- 
fach mit diesen Anweisungen etwas herum. 
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3-3. Der ASCI I -Code 


In Ihrem Rechner werden alle Inf ormationen in Form von binaren 
Zahlen gespeichert. Dies ist die sog. Interndars tellung . Dennoch 
kann der Computer auch mit Buchstaben und anderen Symbolen umge- 
hen. Wir wissen ja, daB wir ihm FORTH-Worter eingeben konnen und 
daB er in der Lage ist, Textinf ormationen auf dem Bildschirm oder 
Drucker auszugeben. Der Computer kann mit diesen Symbolen arbei- 
ten , weil fur jedes eine Zahlenentsprechung , ein sog. Code ver- 
einbart wurde. Die Ein-/Ausgabegerate Ihres Systems konnen diese 
Codes generieren bzw. verstehen. Angenommen, dem Buchstaben A ist 
die Codezahl 65 zugewiesen. Wenn Sie auf Ihrer Tastatur die Taste 
nt dem A niederdriicken , dann wird die Zahl 65 in binarer Form an 
den Computer gesendet. Ahnlich verhalt es sich bei der Ausgabe 
von Inf ormationen: Wenn der Computer ein A ausgeben will, dann 
gibt er tatsachlich die 65 in binarer Form von sich. Das Terminal 
nzv. der Drucker decodieren diese Zahl und erzeugen daraus den 
gewunschten Buchstaben. 

Camit Computer mit Terminals und Druckern von verschiedenen Her- 
siellern zusammenarbei ten konnen, muB man sich auf einen einheit- 
lichen Code festlegen. Es sind zwar mehrere Codevorschrif ten im 
Vriauf, die verbreitetste ist jedoch der sogenannte ASCI I -Code. 
Ciese Abkurzung kommt von "American Standard Code for Information 
Interchange". (Amerikanischer Standardcode fiir Inf ormationsaus- 
tausch) Tabelle 3-1 gibt Ihnen einen Uberblick uber den ASCII- 
Zode . 


TABELLE 3-1. ASCII-CODE 


Dezimal- 

wert 

Zeichen 

Dezimal- 

wert 

Zeichen 

Dezimal- 

wert 

Zeichen 

0 

NUL 

47 

/ 

94 

A 

1 

SOH 

48 

0 

95 


2 

STX 

49 

1 

96 

r 

3 

ETX 

50 

2 

97 

a 

4 

EOT 

51 

3 

98 

b 

5 

ENQ 

52 

4 

99 

c 

6 

ACK 

52 

5 

1 00 

d 

/ 

BEL 

54 

6 

101 

e 

8 

BS 

55 

7 

1 02 

f 
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TABELLE 3-1: ASCI I -Code (Forts.) 


9 

HT 

56 

8 

103 

1 0 

LF 

57 

9 

104 

1 1 

VT 

58 

: 

105 

12 

FF 

59 

/ 

106 

13 

CR 

60 

< 

107 

1 4 

SO 

61 

- 

108 

15 

SI 

62 

> 

109 

16 

DLE 

63 

7 

110 

1 7 

DCl 

64 

@ 

111 

18 

DC 2 

65 

A 

112 

19 

DC 3 

66 

B 

113 

20 

DC 4 

67 

C 

114 

21 

NAK 

68 

D 

115 

22 

SYN 

69 

E 

116 

23 

ETB 

70 

F 

117 

24 

CAN 

71 

G 

118 

25 

EM 

72 

H 

119 

26 

SUB 

73 

I 

120 

27 

ESC 

74 

J 

1 21 

28 

FS 

75 

K 

122 

29 

GS 

76 

L 

123 

30 

RS 

77 

M 

1 24 

31 

US 

78 

N 

125 

32 

Leerz . 

79 

O 

1 26 

33 

1 

80 

P 

127 

34 

ti 

81 

Q 


35 

# 

82 

R 


36 

$ 

83 

S 


37 

% 

84 

T 


38 

& 

85 

U 


39 

- 

86 

V 


40 

( 

87 

W 


41 

> 

88 

X 


42 

* 

89 

Y 


43 

+ 

90 

Z 


44 

i 

91 

[ 


45 

- 

92 

\ 


46 


93 

] 



i 

j 

k 

1 

m 

n 

0 
P 

q 

r 

s 

t 

u 

v 

w 

X 

y 

z 

{ 

1 

} 

DEL 
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Wie Sie sehen, gibt es im ASCII-Code auch Eintrage, die nicht auf 
dem Bildschirm darstellbar sind. Hierbei handelt es sich um die 
ersten 26 Eintrage in der ASCII-Tabelle ; sie sind fur sogenannte 
Steuerzeichen reserviert. Um ein Steuerzeichen einzugeben , muB 
man auf den meisten Terminals die CONTROL -Taste niederdriicken und 
gleichzeitig eine Buchstaben taste anschlagen. Ein gleichzei tiges 
Drucken der Tasten fur CONTROL und A erzeugt dann den ASCII-Code 
1 , CONTROL-B liefert den ASCII-Code 2 usw. Die ersten 26 ASCII- 
Zeichen erzeugen bei Ausgabe auf dem Bildschirm keine Zeichen, 
sondern stellen vielmehr Befehle an den Bildschirm Oder andere 
periphere Gerate dar. So sorgt das ASCI I -Zeichen 8 (das man mit- 
tels CONTROL-H eingeben kann) dafiir, daB sich der Cursor um eine 
Position nach links auf dem Bildschirm bewegt. Mittels ASCII 10 
erzeugt man einen Zeilenvorschub. Das ASCII-Zeichen 13 bewirkt 
einen Wagenrucklauf am Drucker; auf dem Bildschirm sorgt es da- 
fur, daB der Cursor (ohne Zeilenvorschub) an den Anfang der aktu- 
ellen Zeile geht. Das ASCII-Zeichen Nummer 12 bewirkt einen For- 
mularvorschub; es sorgt dafiir, daB der Drucker das Papier an den 
Anfang der nachsten Seite transportiert . (Dies funktioniert na- 
tiirlich nur , wenn der Drucker auf diese Steuerzeichen auch re- 
agieren kann.) 

Mit dem ASCII-Zeichen Nr. 27 hat es eine besondere Bewandtnis. Es 
ist das sog. Escape-Zeichen . Folgen von ASCII-Zeichen , die mit 
dem Zeichen Nr. 27 eingeleitet sind, werden auch als Escape-Se- 
quenzen bezeichnet. Diese braucht man oft, um Drucker und andere 
Peripheriegerate zu steuern. Viele Graphikdrucker sind uber Es- 
cape-Sequenzen programmierbar , so daB man per Programm Zeichnun- 
gen auf diesen Graphikdruckern erstellen kann. Die ASCII-Codes 
fur die Ziffern 0 bis 9 diirfen Sie nicht mit den Zahlen 0 bis 9 
verwechseln; die Ziffer 0 hat vielmehr die Codenummer 48 und die 
9 die Nummer 57. Die anderen Zif fernzeichen liegen dazwischen. 

Urspriinglich wurde der ASCII-Code fur die Arbeit mit Fernschrei- 
bern und ahnlichen Geraten entwickelt. Viele der Steuerzeichen 
wurden zur Steuerung dieser Gerate benotigt. Im nachsten Ab- 
schnitt zeigen wir Ihnen , wie man diese Steuerzeichen zusairmen 
mit Ausgabedaten von Computern einsetzen kann. 
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3 . 4 Formatierte Zahlen 

In diesem Kapitel erfahren Sie, wie man das Aussehen von Zahlen- 
inf ormationen beeinflussen kann, wodurch die Ergebnisse Ihres 
Computers lesbarer werden. Man nennt diesen Vorgang das Formatie- 
ren von Zahlen. 


3-4-1 Datenf elder 


Man kann fur eine Zahl eine bestimmte Anzahl von Stellen auf dem 
Bildschirm oder auf dem Drucker vorsehen; man spricht in diesem 
Zusammenhang von einem Datenfeld . FORTH richtet Zahlen in solchen 
Datenf eldern rechtsbundig aus . Das bedeutet, daB die letzte Zif- 
fer der Zahl am rechten Rand des Feldes zu stehen kommt. Wenn wir 
ein Datenfeld mit 10 Stellen haben , in das wir eine dreistellige 
positive Zahl schreiben lassen, dann erscheinen vor dieser Zahl 7 
Leerstellen . 

-R - Mit dem FORTH-Wort -R konnen wir ein Datenfeld fur die Zah- 
lenausgabe festlegen. Das Wort benutzt die obersten zwei Stack- 
Eintrage. Sie werden entfernt, wobei der erste Eintrag die Feld- 
breite darstellt, der zweite Eintrag die auszugebende Zahl ist. 
Die Stack-Relation sieht folgendermaBen aus: 


n, n- 


--> 


(3-8) 


Wenn wir z.B. eingeben 


23 10 7 10 .R . R (RETURN) 


(3-9) 


dann erhalten wir das Ergebnis aus der Abb. 3-3, wobei leere 
Kastchen in diesem Diagramm fur Leerstellen stehen. Sowohl die 23 
als auch die 7 werden rechtsbundig in Datenf eldern ausgegeben, 
die jeweils eine Breite von 10 Stellen haben. Wir konnen natiir- 
lich auch fur jede Zahl eine andere Feldbreite angeben. 
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I I I I I I I I I I 7| | | | | | | | | 2| 3| 


ABBILDUNG 3-3: Zwei Integers in einem Datenfeld 

von jeweils 1 0 Stellen Breite 


Durch die Angabe von Datenfeldern konnen wir die Druckausgabe von 
Zahlen lesbarer gestalten. Die auszugebenden Daten werden natur- 
lich in den meisten Fallen erst vom Prograiran berechnet. Man weiB 
also nicht von vornherein , wie viele Stellen das Ergebnis haben 
wird. Deshalb kann es vorkommen , daB ein Ergebnis groBer ist, als 
die vorgesehene Feldbreite erlaubt. In diesem Fall vergroBert 
FORTH automatisch das Datenfeld, so daB die Zahl noch hineinpaBt. 
Beachten Sie, daB .R zur Zeit noch kein Teil von FORTH-79 ist. Es 
ist jedoch in MMSFORTH und anderen FORTH-Systemen enthalten. Las- 
sen Sie uns als Beispiel ein eigenes Wort schreiben, das Zahlen 
in ein Datenfeld von 1 5 Stellen Breite ausgibt: 


.15 15 .R 


(3-10) 


Das Wort hat den Namen .15. Es pusht als erstes die 15 auf den 
Stack; anschlieBend wird .R aufgerufen. Somit wird die Zahl, die 
vor Ausfuhrung des Wortes .15 auf dem Stack war, in einem Daten- 
feld der Breite 15 ausgegeben. 


3.4.2 Zahlenausgabe mit Maske 


Oft wollen wir beim Ausgeben von Zahlen noch andere Symbole mit 
in unsere Ausgabe aufnehmen. Bei Geldbetragen kann es beispiels- 
weise notig sein , ein Dezimalkomma zu drucken. FORTH laBt auch 
diese Moglichkeit zu; man bedient sich dazu der sog. Ausgabemas- 
ken. Zum Einsatz dieser Moglichkeit brauchen wir jedoch mehrere 
Worter. Diese werden wir im folgenden Abschnitt darstellen. 

Ehe wir uns der Erorterung von Ausgabemasken zuwenden , wollen wir 
jedoch einen kurzen Exkurs machen und noch einmal uber doppelt 
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genaue Zahlen reden. Diese Zahlen haben wir bereits in Abschnitt 
2-5 kennengelernt . Operationen mit diesem Zahlen typ werden wir in 
einem der folgenden Kapitel besprechen. Hier erortern wir nur 
einige grundlegende Fakten , die fur den Umgang mit Ausgabemasken 
notwendig sind. Die elementaren Befehle fur die Ausgabe mit Maske 
arbeiten namlich nur mit doppelt genauen Integers. (Wir wollen 
fur den Augenblick davon ausgehen, daB diese Zahlen alle positiv 
sind.) Wir hatten aber ganz gern auch einfach genaue Integers mit 
einer Druckmaske ausgegeben. Wir wollen einmal sehen, wie dies 
moglich ist. Eine einfach genaue Zahl benotigt - wie Sie bereits 
wissen - nur eine Stack-Position, wahrend zur Speicherung von 
doppelt genauen Zahlen zwei Stack-Eintrage benotigt werden. Die- 
sen Sachverhalt illustrieren wir in Abb. 3-4. Wie Sie sehen, ha- 
ben wir den obersten Stack-Eintrag in Abb. 3-4b mit MSB be- 
schriftet; diese Abkurzung steht fur "most signifikant bit" und 
bezieht sich auf das hochstwertige Bit der Zahl. Entsprechend ist 
die zweite Stack-Position mit LSB (Abk. fur "least signifikant 
bit", niedrigstwertiges Bit der Zahl) beschriftet. 

Bei der Arbeit mit Dezimalzahlen wurden wir anstelle von hochst- 
wertigen und niedrigstwertigen Bits von hochstwertigen und nie- 
drigstwertigen Dezimalstellen sprechen. Machen wir uns das am 
Beispiel der Dezimalzahl 356789 klar. Ihre drei hochstwertigen 
Ziffern sind 356, wahrend ihre drei niedrigstwertigen 789 sind. 
Nehmen wir nun an, daB wir die dreistellige Zahl 789 mit 6 Stel- 
len schreiben wollen. 

Wir wollen also die Ziffernfolge 000789 ausgeben. In diesem Fall 
haben wir eine Zahl, deren erste drei hochstwertige Stellen 0 
sind. Nun wollen wir sehen, wie wir eine einfach genaue positive 
Integer als oberstes Stack-Element in eine doppelt genaue umwan- 
deln konnen. Dies geht ganz einfach dadurch, daB wir eine 0 auf 
den Stack pushen. Jetzt haben wir eine doppelt genaue Integer, 
deren hochstwertige Stellen allesamt 0 sind. Von ihrem Betrag her 
ist diese doppelt genaue Zahl natiirlich immer noch die gleiche 
wie die vorherige einfach genaue Zahl. Das gilt allerdings nur, 
wenn die Zahl positiv ist. 

Die meisten Computer verwenden namlich ein binares Zahlensystem , 
bei dem das hochstwertige Bit (MSB) dazu dient mitzuteilen, ob 
die Zahl positiv oder negativ ist. Wenn wir jetzt bei einer nega- 
tiven Zahl einfach 0 auf den Stack pushen, urn sie doppelt genau 
zu machen, dann erhalten wir dadurch die falsche Zahl. Urn mit 
Zahlen zu arbeiten, die sowohl positiv als auch negativ sein kon- 
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I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


lieinfach genaue Zahl 
■I* 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


I 1 

I MSB I 

I 1 

I LSB I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 


doppelt genaue 
Zahl 


a) 


b) 


ABBILDUNG 3-4: Der Stack a) mit einer einfach genauen Zahl 

b) mit einer doppelt genauen Zahl 


nen, rruissen wir deshalb das folgende allgemeine Verfahren anwen- 
den. Zuerst duplizieren wir mittels DUP die einfach genaue Zahl 
auf den Stack. Dann ersetzen wir mittels ABS diese Zahl durch 
lhren Absolutbetrag. Wenn wir jetzt eine 0 auf den Stack pushen , 
dann haben wir den korrekten Absolutbetrag in Form einer doppelt 
genauen Zahl. Die ursprungliche einfach genaue Zahl befindet sich 
immer noch auf dem Stack, und zwar an dritter Position. Wir kon- 
nen sie dazu benutzen , das Vorzeichen der Ausgangszahl zu bestim- 
men. Wie man diese Prozedur genau in FORTH implementiert , zeigen 
wir Ihnen noch spater in diesem Abschnitt. Erst wollen wir uns 
einmal den Kommandos fur die Ausgabe mit Maske zuwenden. 

<# und #> - Die FORTH -Kommandos <# und #> werden fur die Ausgabe 
von Zahlen mit Ausgabemaske verwendet. Ehe wir ihre Anwendung 
erortern konnen, miissen wir jedoch noch ein paar andere Worter 
einfuhren. Der Grundgedanke bei der Verwendung dieser beiden Wor- 
ter ist jedoch ganz einfach. Eine Formatanweisung mit diesen bei- 
den Wortern hat immer folgenden Aufbau: 


<# Forma tanweisungen #> 


(3-11) 
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Bei Ausfiihrung eines Befehls in dem Format aus Abb. 3-1 1 wird die 
doppelt genaue Zahl an oberster Stack-Position vom Stack ent- 
fernt. Die Formatanweisungen haben die Form einer Folge von 
ASCII-Zeichen, eines sog. Zeichenstrings . Jedes Zeichen dieses 
Strings stellt eine einzelne Ziffer der auszugebenden Zahl oder 
ein anderes auszugebendes Zeichen dar. Nach Ausfiihrung einer 
Anweisung von der Form 3-1 1 finden sich die ASCII-Codes nicht auf 
dem Stack, sondern in auf einanderf olgenden Speicherstellen des 
Arbeitsspeichers . Als letztes pusht eine Forma tanwei sung von der 
Form 3-11 zwei einfach genaue Integers auf den Stack. Eine stellt 
die Startadresse dar, an der sich die soeben gespeicherten ASCII- 
Zeichen befinden; die zweite gibt an, wie viele Zeichen gespei- 
chert sind (d.h., die Anzahl der Zeichen, die gedruckt werden 
sollen). Letztere Zahl befindet sich an oberster Stack-Position. 
Die Stack-Relation fur eine Anweisung der Form 3-1 1 lautet daher 


n i n 2 


> n addr °lange 


12a) 


Dies gilt fur einfach genaue Zahlen, wobei n^ die ursprungliche 
einfach genaue Integer und ,, gleich 0 ist. Bei doppelt genauen 
Zahlen sieht die Stack-Rela?ion so aus: 


d 


> n addr n lange 


( 3- 1 2b ) 


Wenden wir uns nun wieder der Anweisung 3-11 zu. Die Formatanwei- 
sung zwischen den beiden FORTH-Wortern <# und #> werden von links 
nach rechts durchgegangen. Dabei gilt die erste im String ent- 
haltene Formatanweisung fur die letzte Stelle der Zahl. Die zwei- 
te Formatanweisung bezieht sich auf die vorletzte Stelle usw. 
(Die Formatanweisungen miissen sich nicht notwendigerweise nur auf 
Stellen in der auszugebenden Zahl beziehen. Wir konnen auch ande- 
re Symbole, wie z.B. ein Dezimalkomma, mit aufnehmen.) Jetzt imis- 
sen wir nur noch erfahren, welche FORTH-Kommandos innerhalb die- 
ser Formatanweisungen stehen konnen. 

# - Mit dem # manipulieren wir einzelne Stellen in einer Zahl. 
Bei Ausfiihrung einer Anweisung wie in 3-1 1 wird ja eine doppelt 
genaue Integer von oberster Stack-Position letztendlich in eine 
Folge von ASCII-Zeichen umgewandelt, wobei je ein ASCII-Zeichen 
fur eine Ziffer steht. (Wenn FORTH im Dezimalsystem arbeitet, 
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dann handelt es sich hierbei um Dezimalzif f ern . Haben wir Basis 
16 mittels HEX gewahlt, dann sind es Hexadezimalzif f ern usw.) Fur 
die vorliegende Diskussion wollen wir annehmen , daB es sich um 
Dezimalzahlen handelt. Das Wort # (das nur zwischen <# und #> 
stehen kann) nimmt die niedrigs twertige Dezimalstelle und ent- 
fernt sie von der Zahl. Auch die Tatsache, daB die Zahlen intern 
im Binarsystem gespeichert sind, soli uns hier nicht storen. 
AnschlieBend wird das ASCII-Zeichen fur diese Stelle im Arbeits- 
speicher abgelegt. Wir konnen das Wort # nur zusammen mit positi- 
ven Zahlen verwenden. (Vergleichen Sie die Ausfuhrungen uber 
negative Zahlen am Anfang dieses Abschnitts.) Denken Sie daran , 
daB bei jeder Ausfiihrung eines #-Wortes eine Dezimalstelle von 
der Zahl entfernt wird. 

#S - Das FORTH-Wort # S wandelt eine doppelt genaue Zahl in eine 
Folge von ASCII-Zeichen um. Jedes dieser Zeichen stellt eine 
Dezimalstelle dieser Zahl dar. Auch #S sollte nur mit doppelt 
genauen positiven Integers verwendet werden. 1st die Zahl 0, dann 
wird nur eine einzelne Null (als Ziffer) ausgegeben. Ebenso wie 
bei # darf auch #s nur zwischen den Wortern <# und #> stehen . 
Beachten Sie, daB # nur eine einzige Dezimalstelle umwandelt, 
wahrend #S die ganze verbleibende Zahl in die entsprechende Folge 
von ASCII-Zeichen konvertiert. 

HOLD - Mit dem FORTH-Kommando HOLD konnen wir den ASCI I -Code ei- 
nes beliebigen Symbols in den String von ASCII-Zeichen mit auf- 
nehmen, der unsere Zahl darstellt. HOLD entfernt die oberste ein- 
fach genaue Integer vom Stack und nimmt das entsprechende Zeichen 
der ASCI I -Tabelle in den Zeichenstring mit auf. Die Stack-Rela- 
tion des Wortes lautet: 


n — > (3-13) 

Beachten Sie, daB auch HOLD nur zwischen den Wortern <# und #> 
stehen kann. 

Als Beispiel fur die bisher vorgestellten FORTH-Worter wollen wir 
ein neues Wort definieren, das eine einfach genaue positive Inte- 
ger so ausgibt, daB ein Dezimalkomma vor den letzten beiden Stel- 
len der Zahl steht. Das Einfiigen eines Dezimalkommas kann aus 
mehreren Griinden erwiinscht sein. Wenn Sie z.B. Programme schrei- 
ben , die mit Geldbetragen umgehen , dann werden Sie die Mark- und 
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Pf ennigbetrage kenntlich machen wollen. Da wir bisher nur mit 
Integers arbeiten konnen , konnen wir in unseren Programmer auch 
keine Zahlen mit Nachkommastellen eingeben. Wir miissen dann den 
Betrag 34,50 DM als die Zahl 3450 eingeben und intern verarbei- 
ten. Beim Ausgeben der Geldbetrage sollte das Dezimalkomma jedoch 
wieder erscheinen. Unser selbstdef iniertes Wort leistet genau das 
Gewiinschte: Es gibt eine Zahl aus , wobei sich vor den letzten 
beiden Stellen der Zahl ein Dezimalkomma befindet. Seine Defini- 
tion: 


: WRD 0 <# # # 44 HOLD #S #> 


(3-14) 


Sehen wir uns das neue Wort WRD einmal genauer an. Wir gehen da- 
von aus, daB sich eine einfach genaue Integer in oberster Stack- 
Position befindet. Deshalb pushen wir erst einmal die 0 auf den 
Stack, urn daraus eine doppelt genaue Integer mit demselben Betrag 
zu machen (erinnern Sie sich noch?). Jetzt kommen die Befehle an 
die Reihe , die zwischen <# und #> liegen. Das erste fentfernt die 
niedrigstwertige Dezimals telle von unserer doppelt genauen Zahl 
auf dem Stack. Daraufhin wird das ASCII-Zeichen generiert, das 
dieser Zahl entspricht, und im Speicher abgelegt. Das zweite # 
sorgt fur dieselbe Prozedur mit der niedrigstwertigen Dezimal- 
stelle der verbleibenden Zahl. Als nachstes legen wir die Zahl 44 
auf den Stack. HOLD entfernt sie wieder und sorgt dafur, daB im 
String der ASCII-Zeichen eine 44 mit abgespeicher t wird. Der 
ASCII-Tabelle konnen Sie entnehmen, daB die 44 der interne Code 
fur das Komma ist. 

Wir haben also jetzt in unseren Ergebnisstring das Dezimalkomma 
geschrieben. Als nachster Befehl ist #S an der Reihe. Dieses Wort 
wandelt die ganze verbleibende doppelt genaue Zahl in einen 
String von ASCII-Zeichen urn, eins fur jede Dezimalstelle . Nach 
Ausfuhrung von #> steht also der komplette String im Arbeitsspei- 
cher. AuBerdem haben wir ein Dezimalkomma vor die beiden letzten 
Stellen der Zahl eingefiigt. Die Originalzahl ist vom Stack ver- 
schwunden. An ihrer Stelle sind zwei neue Zahlen auf den Stack 
gekommen. Diese stellen die Startadresse des Ergebnisstrings im 
Arbei tsspeicher dar , den wir eben erzeugt haben; die zweite Zahl 
gibt an, wieviele Zeichen dieser String enthalt. Das Ergebnis 
steht aber nach wie vor im Arbeitsspeicher , ist aber noch nicht 
zu sehen. Dafxir - fur die Anzeige eines mit Formatmaske erzeugten 
Zif f ernstrings - benotigen wir noch ein eigenes Kommando. 
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TYPE - Mit dem FORTH-Wort TYPE werden ASCII-Zeichen ausgegeben , 
die im Arbeitsspeicher des Computers gespeichert sind. TYPE sorgt 
dafiir, daB diese Zeichen am Ausgabegerat (dem Terminal Oder dem 
Drucker) erscheinen. Dazu entfernt es zwei Zahlen vom Stack. Der 
oberste Stack-Eintrag gibt an, wieviele Zeichen TYPE an das Aus- 
gabegerat iibertragen soil. Die zweite Zahl auf dem Stack stellt 
die Anf angsadresse dar, ab der sich der auszugebende String im 
Arbeitsspeicher des Computers befindet. Die Stack-Relation fur 
TYPE lautet: 


n addr n lange > 


(3-15) 


Wir konnen jetzt unser Programm 3-14 so verandern , daB es sein 
Ergebnis auch noch auf dem Bildschirm ausgibt. Dazu andern wir 
lediglich den Namen der Definition und fiigen das zusatzliche Wort 
TYPE mit an: 


: WRTT 0 <# # # 44 HOLD #S #> TYPE ; 


(3-16) 


(Streng genommen ist es gar nicht notig, der Definition einen 
neuen Namen zu geben.) Nachdem FORTH die neue Definition 3-16 
compiliert hat, konnen wir eingeben: 


15756 WRTT (RETURN) 


(3-17) 


und erhalten als Ausgabe auf unserem Bildschirm: 

157,56 ok 

SIGN - Die bisher geschriebenen Programme funktionieren nur mit 
positiven Zahlen. Jetzt wollen wir einmal sehen , wie wir Zahlen 
ausgeben konnen, die sowohl positiv als auch negativ sein konnen. 
Das FORTH-Wort SIGN, das nur zwischen den Wortern <# und #> ste- 
hen kann , erzeugt den ASCII-Code fur ein Minuszeichen und nimmt 
ihn in den ASCII-String mit auf, falls die Zahl an der obersten 
Stack-Position negativ ist. Ist sie hingegen positiv, dann tut 
SIGN nichts. Jetzt konnen wir ein Programm schreiben, das ebenso 
wie die bisherigen eine Zahl mit Dezimalkomma ausgibt, zusatzlich 
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aber noch ein Minuszeichen vor die Zahl stellt, falls diese nega- 
tiv ist. 


: WRTTN DUP ABS 0 <# # # 44 HOLD #S 
ROT SIGN #> TYPE ; 


(3-18) 


Sehen wir uns das neue Wort einmal genauer an. DUP dupliziert die 
auszugebende Zahl. Als nachstes wird die Zahl mittels ABS durch 
ihren Absolutwert ersetzt. Wir haben jetzt den Betrag der Origi- 
nalzahl an oberster Stack-Position, falls die Originalzahl nega- 
tiv war, und ansonsten die unveranderte Originalzahl. Dann machen 
wir aus dieser Zahl durch pushen von 0 eine doppelt genaue Zahl. 
Als nachstes sehen wir den Befehl <#. Dieser leitet die Verarbei- 
tung der doppelt genauen Zahl an oberster Stack-Position ein. Die 
Befehlsfolge # #44 HOLD #S wandelt diese Zahl ebenso wie das 
bereits bekannte Beispiel 3-16 in eine Folge von ASCI I -Zeichen 
um. Die 0 und der Absolutwert der eingesetzten Zahl befinden sich 
immer noch auf dem Stack. Jetzt kommt der Befehl ROT an die Rei- 
he. Wie Sie sehen, konnen also auch "normale" FORTH-Worter zwi- 
schen <# und #> stehen. Dadurch wird der dritte Stack-Eintrag an 
die oberste Stelle gebracht. Dabei handelt es sich aber um die 
Originalzahl, die ausgegeben werden soil. SIGN entfernt diese 
Zahl vom Stack. Falls sie negativ ist, dann fugt das Wort SIGN 
den ASCI I -Code fur das Minuszeichen vor den Ergebnisstring ein. 
Ist die fragliche Zahl positiv, dann hat SIGN keinerlei Auswir- 
kung. Die Umwandlung der Zahl wird wie iiblich mit #> abgeschlos- 
sen. Jetzt befinden sich Startadresse und String-Lange auf dem 
Stack. TYPE holt sich diese beiden Eintrage und sorgt dafiir, daB 
die angegebene Anzahl von Zeichen ab der zur Verfiigung gestellten 
Startadresse auf dem Bildschirm ausgegeben wird. Die Befehle 
zwischen <# und <# werden also - wie iiblich - von links nach 
rechts abgearbeitet . Das erste ausgefuhrte Wort ist also #, wah- 
rend das letzte SIGN ist. Das Kommando TYPE gibt den erzeugten 
String in umgekehrter Reihenfolge aus: das Ergebnis des zuletzt 
ausgefiihrten Befehls wird als erstes gedruckt. Deswegen bewirkt 
das Wort SIGN, welches das letzte Kommando zwischen <# und #> 
ist, daB ein Minuszeichen vor die Zahl gedruckt wird, vorausge- 
setzt, diese ist negativ. 

Als letztes Beispiel wollen wir (3-18) so verandern, daB die Zahl 
mit einem Dollarzeichen nach dem Vorzeichen ausgegeben wird. Das 
veranderte Wort sieht nunmehr f olgendermaBen aus: 
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: WRT$ DUP ABS 0 <# # # 44 HOLD #S 

36 HOLD ROT SIGN #> TYPE ; (3-19) 


Im wesentlichen handelt es sich hierbei um die gleiche Definition 
wie in (3-18), auBer daB der Befehl 36 HOLD hinzugekommen ist. 
Wie Sie der ASCII-Tabelle entnehmen konnen , ist die Code-Zahl des 
Dollarzeichens 36. Deshalb wird das ASCII-Zeichen in die Zeichen- 
kette mit aufgenommen und taucht dort vor dem Minuszeichen auf. 


3 . 5 Ubungsauf gaben 

Oberprufen Sie bei den folgenden Auf gaben alle Programme und 

selbstdefinierten Worter, indem Sie sie auf Ihrem Computer laufen 

lassen . 

3-1 Was bedeutet der Begriff "Text"? 

3-2 Schreiben Sie ein FORTH-Wort, das Ihre Anschrift auf dem 
Bildschirm ausdruckt. 

3-3 Schreiben Sie ein FORTH-Wort, das den Durchschnitt von 4 
Zahlen berechnet. Das Wort soil den Benutzer zur Eingabe der 
Werte auffordern und anschlieBend warten , bis der Benutzer 
sie zur Verfilgung gestellt hat. Quotient und Divisionsrest 
des Durchschnitts sollen dann mit entsprechenden Erklarungen 
auf dem Bildschirm ausgegeben werden. 

3-4 Xndern Sie die Definition von Auf gaben 3-3 so ab, daB die 
Bereitschaf tsmeldung "ok" nicht ausgegeben wird. 

3-5 Andern Sie die Definition von Aufgabe 3-4 so ab, daB Quo- 
tient und Divisionsrest auf verschiedenen Zeilen ausgegeben 
werden. 

3-6 Andern Sie mittels SPACES die Definition von Aufgabe 3-5 so, 
daB genugend Zwischenraum zwischen den Ergebnissen steht. 

3-7 Wiederholen Sie Aufgabe 3-2, und senden Sie das Ergebnis 
direkt an Ihren Drucker. 
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3-8 Wiederholen Sie Aufgabe 3-3, und senden Sie das Ergebnis 

direkt an Ihren Drucker. 

3-9 Wiederholen Sie Aufgabe 3-4, und senden Sie das Ergebnis 

direkt an Ihren Drucker. 

3-10 Wiederholen Sie Aufgabe 3-5, und senden Sie das Ergebnis 

direkt an Ihren Drucker. 

3-11 Wiederholen Sie Aufgabe 3-6, und senden Sie das Ergebnis 

direkt an Ihren Drucker. 

3-12 Was ist ein ASCII-Code? 

3-13 Schreiben Sie eine Tabelle mit den ASCII-Codes fur die 
Steuerzeichen . 

3-14 Angenommen, der ASCII-Code eines GroBbuchstabens befindet 
sich an oberster Stack-Position. Schreiben Sie ein FORTH- 
Wort, das diese Zahl in den ASCII-Code fur einen entspre- 
chenden Kleinbuchs taben umwandelt. 

3-15 Wiederholen Sie Aufgabe 3-14, wandeln Sie diesmal jedoch 
einen Kleinbuchs taben in einen entsprechenden GroBbuchs taben 
urn . 

3-16 Was ist ein Datenfeld? 

3-17 Schreiben Sie ein FORTH-Wort, das die beiden obersten Stack- 
eintrage ausgibt. Die Zahl an oberster Stack-Position sollte 
in einem Feld von 15 Zeichen Breite rechtsbiindig erscheinen. 
Die zweite Zahl soil rechtsbiindig in einem 25 Zeichen brei- 
ten Feld stehen. 

3-18 Erortern Sie das Prinzip der Zahlenausgabe mit Maske. 

3-19 Legen Sie dar , wie man eine positive einfach genaue Integer 
in eine entsprechende doppelt genaue Integer umwandeln kann. 

3-20 Schreiben Sie ein FORTH-Wort, das eine fiinfstellige Zahl mit 
einer Leerstelle nach den ersten zwei Ziffern druckt. Die 
Zahl soil positiv sein. 
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3-21 Schreiben Sie ein FORTH-Wort , das eine filnfstellige Zahl mit 
der Beschriftung "DM" nach den ersten drei und mit "Pfennig" 
nach den letzten beiden Stellen ausgibt. Die Zahl soli 
positiv sein. 

3-22 Kann man eine negative einfach genaue Integer in eine dop- 
pelt genaue Integer verwandeln , indem man eine 0 auf den 
Stack pusht? 

3-23 Wiederholen Sie Aufgabe 3-20, gehen Sie diesmal aber nicht 
davon aus, daB die Zahl positiv ist. Wenn sie negativ ist, 
dann sollten Sie ein Minuszeichen vor die Zahl drucken. 

3-24 Wiederholen Sie Aufgabe 3-21 , gehen Sie aber nicht davon 
aus, daB die Zahl positiv ist. Wenn sie negativ ist, dann 
sollten Sie ein Minuszeichen vor die Zahl drucken. 

3-25 Wiederholen Sie Aufgabe 3-20, schicken Sie das Ergebnis aber 
direkt an den Drucker. 

3-26 Wiederholen Sie Aufgabe 3-21 , schicken Sie das Ergebnis aber 
direkt an den Drucker. 
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4 Programs teuerung - Strukturiertes Progranmieren 


Die bisher betrachteten FORTH-Programme haben einfach einzelne 
Worter der Reihe nach ausgefuhrt. Wesentlich leistungsf ahigere 
Programme kann man schreiben , wenn es moglich ist, in einem Pro- 
gramm verschiedene Zweige zu verfolgen. Bei solchen Programmen 
entscheidet der Computer aufgrund eines Entscheidungsprozesses 
selbst, welcher Zweig im Programm verfolgt werden soil. Diesen 
EntscheidungsprozeB konnen Sie in Ihrem Programm bestimmen. Die 
Entscheidung kann etwa davon abhangen , ob eine Zahl positiv oder 
negativ ist. Moglichkei ten , mit denen solche Ver zweigungen er- 
reicht werden konnen, betrachten wir in diesem Kapitel. 

Oft ist es auch wunschenswert , daB ein Programm eine Folge von 
Arbeitsschritten wiederholt ausfiihrt (sog. Programmschleife) . Die 
Techniken , die dies bewirken , werden wir ebenfalls im vorliegen- 
den Kapitel kennenlernen. 

SchlieBlich gibt es noch Methoden zur Programmierung , die Pro- 
gramme mit Verzweigungen und Schleifen weniger f ehleranf allig und 
leichter korrigierbar machen. Die hierzu eingesetzte Methode 
tragt den Namen "Strukturierte Programmierung" und wird ebenfalls 
Gegenstand dieses Kapitels sein. 


4.1 Logische Bedingungen 


In FORTH werden - ebenso wie in anderen Programmiersprachen - 
Entscheidungen in Abhangigkeit davon getroffen, ob eine Variable 
den Wert "wahr" Oder "falsch" hat. Wir konnen beispielsweise 
uberpriifen, ob die oberste Zahl auf dem Stack positiv ist. Nach 
dieser Uberprufung wird die Zahl vom Stack entfernt und darauf 
entweder eine Eins abgelegt, falls die Zahl positiv war, Oder im 
Falle eines negativen Eintrags eine Null. Diese Eins bzw. Null 
bezeichnet man auch als Flag. Die Eins steht fur den Wahrheits- 
wert "wahr", wahrend die Null "falsch" darstellt. Die Flag-Werte 
0 und 1 sind gewohnliche einfach genaue Integers. Es gibt also 
keine Moglichkeit, den Flag-Wert 1 von einer Eins zu unterschei- 
den, die Sie auf dem Stack abgelegt haben. Spatere Abschnitte 
dieses Kapitels werden sich der Frage widmen , wie man in einem 
Programm Verzweigungen veranlassen kann, je nachdem , welchen Wert 
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ein Flag an oberster Stack-Position hat. Dieser Abschnitt fiihrt 
erst einmal die FORTH-Worter ein, die fur solche Vergleiche beno- 
tigt werden , die als Ergebnisse Flags auf den Stack pushen. 

0= - Das FORTH-Wort 0= iiberpriift auf Gleichheit mit 0. Dazu 
entfernt es den obersten Stack-Eintrag und legt statt dessen ein 
Flag darauf ab. Dieses besitzt den Wert 1 , falls die Testzahl 
gleich Null war. In alien anderen Fallen, d.h., wenn zuvor keine 
Null auf dem Stack war, hat das Flag den Wert 0. Hier die Stack- 
Relation: 


n — > n 


flag 


(4-1 ) 


Das Flag ist M wahr" , falls n = 0. Denken Sie daran, daB das Flag 
nichts anderes als eine einfach genaue Integer ist. Der Zahlen- 
wert 0 steht dabei fur den Wahrheitswert "falsch" , wahrend 1 fur 
"wahr" steht. Im Rest des Buches werden wir deshalb einfach sa- 
gen , daB ein Flag "wahr" Oder "falsch" ist. Abbildung 4-1 zeigt 
ein Stack-Diagramm vor und nach Ausfiihrung von 0=. Wie Sie sehen, 
wurde der oberste Stack-Eintrag, der ungleich 0 ist, entfernt und 
statt dessen eine 0 (fur "falsch") auf den Stack gepusht. 


I 1 

I 7 I 

I 1 

115 I 

I 1 

I 8 I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

a) 


I 1 

I 0 I 

I 1 

115 I 

I 1 

I 8 I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 

b) 


ABBILDUNG 4-1: a) Typischer Stack-Zustand ; 

b) der Stack nach Ausfuhrung von 0=. 
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0 < - Das FORTH-Wort 0 < iiberpruft, ob der oberste Stackeintrag 
kleiner als 0 ist. Es entfernt diesen obersten Eintrag vom Stack 
und ersetzt ihn durch ein Flag, das "wahr" ist, wenn die zuvor 
auf dem Stack befindliche Zahl kleiner Null ist; war sie gleich 
oder groBer als Null, dann wird das Flag " falsch" . Die Stack- 
Relation sieht f olgendermaBen aus: 


n — > 


flag 


(4-2) 


Das Flag wird nur dann "wahr", wenn n kleiner Null ist. Beach ten 
Sie die Shnlichkeit in der Funktionsweise von 0 = und 0 <. 

0 > - Auch das FORTH-Wort 0 > entfernt die oberste Zahl vom Stack 
und legt statt dessen dort ein Flag ab. Dieses ist "wahr" , wenn 
die Testzahl positiv war. Ist die Zahl kleiner oder gleich Null, 
dann wird das Flag "falsch". Die Stack-Relation sieht f olgender- 
maBen aus: 


n — > n 


flag 


(4-3) 


Das Flag wird nur "wahr", wenn n groBer Null ist; in alien ande- 
ren Fallen ist es "falsch". 

Als Beispiel wollen wir jetzt ein eigenes FORTH-Wort schreiben, 
das die oberste Zahl vom Stack entfernt und durch ein Flag er- 
setzt. Dieses soil "wahr" sein, wenn die Testzahl kleiner oder 
gleich Null war und in alien anderen Fallen "falsch". Man kann 
dies durch folgende Definition erreichen: 


: KGN DUP 0< SWAP 0= + 0> ; 


(4-4) 


Die Definition tragt den Namen KGN ( "kleiner/gleich Null"). In 
ihr werden zwei Vergleichsbef ehle eingesetzt. Als erstes dupli- 
zieren wir die fragliche Zahl. Dann wird das Wort 0 < aufgerufen. 
Dieses legt eine 1 auf den Stack, falls die Originalzahl kleiner 
Null war, andernfalls ist ihr Ergebnis Null. Das nachste Wort, 
SWAP, bringt die Originalzahl wieder an oberste Stack-Position. 
Daraufhin wird 0= ausgefiihrt. Jetzt befindet sich eine 1 auf dem 
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Stack, wenn die Originalzahl gleich Null war, ansonsten steht 
dort eine Null. Die zweite Zahl auf dem Stack ist das Flag, wel- 
ches das Wort 0< dort hinterlassen hat. Wenn nun eines der beiden 
Stack-Elemente (oder auch beide) den Wert 1 hat, dann wollen wir 
ein "wahres" Flag auf den Stack pushen (nachdem wir zuvor die 
beiden Stack-Eintrage entfernt haben). Dazu fuhren wir den Befehl 
+ aus. Jetzt befindet sich statt der beiden obersten Stack-Ein- 
trage deren Summe auf dem Stack. Falls diese Zahl groBer oder 
gleich 1 ist, dann soil das Ergebnis der gesamten Definition KGN 
"wahr" sein. Ist die Zahl jedoch gleich Null, dann soil auch das 
Ergebnis Null sein. Dafur sorgt das Wort 0>. Es entfernt den 
obersten Stack-Eintrag und legt statt seiner ein Flag dort ab. 
Dieses hat den Wert "wahr", wenn die Ausgangszahl positiv war, 
und ist ansonsten "falsch" . Wir haben also genau das erreicht, 
was wir wollen. 

Im Folgenden betrachten wir einige FORTH-Worter , die Entscheidun- 
gen in Abhangigkeit vom Wert zweier Zahlen treffen. Diese Worter 
entfernen dazu stets die obersten beiden Eintrage vom Stack. An 
ihrer Stelle legen sie dort ein Flag ab. 

= - Das FORTH-WORT = entfernt die obersten zwei Stack-Eintrage 
und ersetzt sie durch ein Flag. Das Flag ist "wahr", wenn die 
zwei vom Stack entfernten Zahlen gleich waren; ansonsten ist es 
"falsch". Wir haben also folgende Stack-Relation: 


n, n 0 --> n 


flag 


(4-5) 


Das Flag wird "wahr", falls n^ = n^ und "falsch" in alien anderen 
Fallen. Ein Stack-Diagramm , das die Ausfuhrung von = zeigt, sehen 
Sie in Abbildung 4-2. 

< - Das FORTH-Wort < entfernt die beiden obersten Stack-Eintrage 
und ersetzt sie durch ein Flag. Dieses ist "wahr", falls die 
zweite Zahl auf dem Stack kleiner als der oberste Stack-Eintrag 
war. Ansonsten - wenn die zweite Zahl groBer oder gleich der 
ersten war - wird das Flag "falsch". Die Stack-Relation dazu: 


n, n. 


--> n 


flag 


(4-6) 
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I 1 i 1 

I 15 I III 

I 1 I 1 

I 15 I 1151 

I 1 I 1 

I 27 I I I 

I 1 I 1 

I II I 

I 1 I 1 

I . I I - I 
I . I I . I 
I . I I • I 
I II I 

I II I 

I II I 

a) b) 

ABBILDUNG 4-2: a) Ein typischer Stack; 

b) der Stack nach Ausfuhrung von = . 


Das Flag wird also "wahr" , wenn kleiner ist. Ansonsten ist 
das Flag "falsch" . 

> - Das FORTH-Wort > entfernt die beiden obersten Stack-Eintrage 
und ersetzt sie durch ein Flag. Das Flag ist "wahr", wenn die 
zweite Zahl auf dem Stack groBer als die erste ist; ansonsten ist 
es "falsch". Die Stack-Relation fur > lautet: 


n 2 ~ _> n f lag 


(4-7) 


Das Flag ist "wahr", wenn n groBer als n~ ist. Ansonsten ist das 
Flag "falsch". 

Wir wollen als Beispiel ein eigenes FORTH-Wort definieren, das 
zwei Zahlen vom Stack entfernt und an ihrer Stelle ein Flag dort 
ablegt. Dieses soil "wahr" sein, falls die zweite Zahl auf dem 
Stack kleiner oder gleich der ersten ist. In alien anderen Fallen 
- wenn also die zweite Zahl auf dem Stack groBer als die erste 
war - soil das Flag "falsch" sein. Die Definition sieht folgen- 
dermaBen aus : 
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: KG 2DUP < ROT ROT = + 0> ; 


(4-8) 


Gehen wir die Definition einfach einmal durch. Wir wollen insge- 
samt zwei logische Vergleiche durchfiihren. Dazu mussen wir zwei 
einfach genaue Integers duplizieren. Das konnen wir ebensogut mit 
2DUP machen. Als nachstes vergleichen wir diese zwei Zahlen uber 
<. Dieses Kommando entfernt die beiden Zahlen vom Stack und er- 
setzt sie durch ein Flag. Das Flag ist "wahr", wenn der zweite 
Stack-Eintrag kleiner als der erste Stack-Eintrag war. Ansonsten 
ist es "falsch". Als nachstes fiihren wir zweimal den Befehl ROT 
aus. Jetzt befindet sich wieder das urspriingliche Zahlenpaar an 
den obersten beiden Stack-Positionen . Der nachste Vergleich er- 
folgt mit Hilfe des Befehls =. Deshalb ist es egal , in welcher 
Reihenfolge die beiden Zahlen an die oberste Stack-Position ge- 
bracht werden. Wie Sie wissen, entfernt = die beiden obersten 
Stack-Eintrage und ersetzt sie durch ein Flag. Dieses ist nur 
dann "wahr" , wenn die beiden vom Stack entfernten Zahlen gleich 
sind. Jetzt haben wir zwei Flags in unserem Stack. Von da ab geht 
es weiter wie in der Definition (4-4). Die Befehle + und 0> wer- 
den ausgefuhrt. Somit befindet sich das gewiinschte Ergebnis auf 
dem Stack. 

Es gibt noch einige weitere Vergleichsbef ehle , die jedoch noch 
nicht Teil von FORTH-79 sind. Sie finden sich aber im MMSFORTH 
und anderen FORTH-Systemen , weswegen wir sie hier besprechen. 

Das FORTH-Wort O funktioniert genau umgekehrt wie das bereits 
bekannte =. Es legt namlich dann ein "wahres" Flag auf den Stack, 
wenn dessen beide oberste Eintrage ungleich sind. Sind sie jedoch 
gleich, dann ist das Ergebnis von <> ein "falsches" Flag. 

Das Wort <= funktioniert ahnlich wie <, auBer daB das Flag nun 
"wahr" wird, wenn die zweite Zahl auf dem Stack kleiner oder 
gleich der Zahl an oberster Stack-Position ist. 

Das FORTH-Wort >= funktioniert ahnlich wie >, auBer daB das Flag 
nun "wahr" wird, wenn die zweite Zahl auf dem Stack groBer oder 
gleich der Zahl an oberster Stack-Position ist. 


126 



4 Programmsteuerung - Strukturiertes Programmieren 


4.2 Bedingte Verzweigungen 


Vie werden jetzt erortern, wie die Entscheidungsbef ehle aus dem 
letzten Abschnitt dazu dienen konnen , in einem Programm Verzwei- 
gungen zu steuern. Dadurch wird unsere Programmierf ahigkeit be- 
trachtlich gesteigert. 

IF und THEN - In FORTH gibt es zwei Kommandos , die fur die Ver- 
zweigung in Programmen grundlegend sind. Sie lauten IF sowie 
THEN. Die beiden Worter treten immer zusammen auf. Sie haben die 
allgemeine Form: 


IF anweisungen a THEN anweisungen b 


(4-9) 


Die beiden Worter f unktionieren f olgendermaBen : Bei Ausfiihrung 

von IF wird die oberste Zahl vom Stack entfernt und als Flag be- 
Drachtet . Falls (englisch "if") das Flag M wahr n ist, dann werden 
die "anweisungen a n ausgefiihrt, die hinter dem Wort IF folgen. 
Als nachstes werden die "anweisungen b" ausgefiihrt. War das zuvor 
auf dem Stack befindliche Flag jedoch falsch, dann werden die 
anweisungen a" ubergangen und es kommt nur zur Ausfiihrung der 
anweisungen b" . Beachten Sie, daft das Flag (die Bedingung) vor 
dem IF kommen muB. Diese Regelung steht im Einklang mit der ub- 
lichen umgekehrten polnischen Notation, entspricht aber nicht dem 
umgangssprachlichen Gebrauch des "wenn. . .dann". Das Wort IF ent- 
fernt das Flag vom Stack; ist es "wahr", dann wird der Programm- 
zveig zwischen den Wortern IF und THEN begangen. Bei einem "fal- 
schen" Flag werden diese Befehle ubergangen, und nur der Pro- 
grammteil hinter THEN gelangt zur Ausfiihrung. Beachten Sie, daS 
die auf THEN folgenden Worter also in jedem Fall ausgefiihrt wer- 
den . 


Wir wollen einmal ein Beispiel fur ein FORTH-Wort analysieren, 
das zwei Programmzweige enthalt. Das Wort vergleicht zwei Zahlen 
auf dem Stack. Sind sie gleich, dann gibt es die Meldung aus: 
Die Zahlen sind gleich". Bei Ungleichheit der Zahlen meldet das 
Programm jedoch: "Die Differenz lautet" und gibt daraufhin die 

Differenz der beiden Zahlen aus. Wir erreichen dies durch die 
Definition in Abbildung 4-3. 
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Eine einfache Programmver zweigung ) 


CHECKEQ 


2DUP 

IF . " Die Zahlen sind gleich " 2 DROP 

THEN - . M Die Differenz lautet 


QUIT 

H 


ABBILDUNG 4-3: Ein einfaches Beispiel fur Programmverzweigungen 


Zeile 1 dieses Programms definiert den Namen des neuen Wortes , 
namlich CHECKEQ. Da unter Umstanden zwei Operationen mit den 
fraglichen Integers erforderlich sind, duplizieren wir sie beide 
nittels 2DUP. Als nachstes wird das oberste Zahlenpaar vom Stack 
antfernt und mittels = verglichen. Sind die Zahlen gleich, dann 
wird ein Flag mit dem Wert "wahr" auf den Stack gepusht. Anson- 
sten ist das Flag "falsch" . Jetzt kommt das Wort IF an die Reihe. 
Es entfernt das Flag an oberster Stack-Position. Im Falle eines 
"wahren" Flags werden dann die Worter zwischen IF und THEN ausge- 
fiihrt. Dies fiihrt dazu, daB die Meldung "Die Zahlen sind gleich" 
ausgegeben wird. Da im Folgenden der Stack nicht mehr benotigt 
wird, fuhren wir das Kommando 2DROP aus , um ihn zu bereinigen. 
AnschlieBend kommt der Befehl QUIT an die Reihe, wodurch das Wort 
/erlassen und die Kontrolle wieder an Ihr Terminal ubergeben 
wird. Wie Sie sehen, kann also das Wort QUIT durchaus Bestandteil 
sines Programmzweigs sein. Wenn in unserem selbstdef inierten Wort 
ler Programmzweig mit dem QUIT ausgefiihrt wird, dann gelangen die 
Programmschritte hinter THEN nicht zur Ausfiihrung. Beachten Sie 
aber, daB ein Aufruf von CHECKEQ aus einem anderen FORTH-Wort 
aeraus in diesem Fall dazu fiihrt, daB alle Berechnungen durch 
QUIT abgebrochen werden und nicht nur das Wort CHECKEQ verlassen 
vird. Sie mussen also beim Umgang mit QUIT sehr vorsichtig sein. 
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Jetzt wollen wir einmal annehmen , daB das Flag "falsch" war. In 
diesem Fall werden die Befehle zwischen IF und THEN ubergangen. 
Nun berechnet das FORTH-Wort - die Differenz der beiden Zahlen. 
Diese ersetzt die beiden Originalzahlen auf dem Stack. Als letz- 
tes fiihren wir den Befehl . " aus und sorgen dafur, daB die Mel- 
dung "Die Differenz lautet" auf dem Bildschirm ausgegeben wird. 
Der Punktbefehl bringt dann die Differenz zum Vorschein. Da so- 
wohl das Wort - als auch . jeweils eine Zahl vom Stack entfernen, 
brauchen wir in diesem Programmzweig nicht mittels DROP den Stack 
zu bereinigen. 

ELSE - Programmverzweigungen werden durch das FORTH-Wort zu einem 
wesentlich wirkungsvolleren Instrument. Der Befehl ELSE kann fol- 
gendermaBen in die Befehlsfolge IF.. -THEN eingebaut werden: 


IF anweisungen a ELSE anweisungen b THEN anweisungen c (4-10) 


In diesem Fall werden folgende Programmschri tte unternommen. Wie- 
der gehen wir davon aus, daB der oberste Stack-Eintrag ein Flag 
ist. 1st das Flag "wahr" , dann werden die "anweisungen a" ausge- 
fuhrt, nicht aber die "anweisungen b" . Als nachstes kommen dann 
die "anweisungen c" an die Reihe. Ist das Flag aber "falsch", 
dann werden die "anweisungen a" ubergangen, es gelangen jedoch 
die "anweisungen b" sowie die "anweisungen c" zur Ausfuhrung. 
Nocheinmal: Wenn das Flag "wahr" ist, dann werden die Worter zwi- 
schen IF und ELSE ausgefiihrt, wahrend die zwischen ELSE und THEN 
ubergangen werden. Ist das Flag "falsch", dann werden die Anwei- 
sungen zwischen IF und ELSE ubergangen, wahrend die zwischen ELSE 
und THEN stehenden Worter ausgefiihrt werden. Das Wort IF besitzt 
naturlich auch eine Stack-Relation; sie lautet: 


n 

flag 


-> 


(4-11) 


Wir wollen die Arbeitsweise des Wortes ELSE anhand des Programms 
in Abbildung 4-4 verdeutlichen . Dieses einfache Programm konnte 
z.B. ein Lehrer dazu benutzen, Informationen iiber die Leistungen 
seiner Schuler anhand der erreichten Punktzahl auszudrucken . Die 
' tktzahl ist erne Integer, die sich an oberster Stack-Position 
Dehnaen soil. Be: Ausfuhrung des fortes 'NCfTEfi passiert dann iol- 
gendes. Eei einer Punktzahl kleiner 60 wird die Meldung "Der 
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Schuler fallt durch" ausgegeben. 1st die Punktzahl groBer Oder 
gleich 60, dann erscheint statt dessen "Der Schuler besteht". In 
beiden Fallen wird jedoch die Differenz zwischen der erreichten 
Punktzahl und der maximalen Punktzahl von Hundert zusammen mit 
einer erklarenden Meldung ausgegeben. 


0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
12 
1 3 
1 4 
15 

ABBILDUNG 4-4: Ein einf aches Beispiel fur bedingte Verzweigungen 


Sehen wir uns das Wort NOTEN in alien Einzelheiten an (vgl. Abb. 
4-4). In Zeile 1 wird zuerst einmal der Text "Der Schuler" ausge- 
geben. Daraufhin pushen wir die Zahl 60 auf den Stack. Das Wort - 
sorgt nun dafiir, daB die Punktzahl des Schulers, vermindert um 
den Wert 60, als neues oberstes Stack-Element gegeben ist. 1st 
diese Zahl negativ , dann ist der Schuler durchgef alien . Da wir 
diese Zahl zweimal brauchen, duplizieren wir sie jedoch zuerst 
mit DUP. Dann wird der Vergleich mit 0< ausgefiihrt. Die oberste 
Zahl auf dem Stack, also die Punktzahl des Schulers minus 60, 
wird von diesem entfernt und durch ein Flag ersetzt. Dieses hat 
den Wert "wahr" , wenn die Ausgangszahl kleiner Null ist Oder, 
anders gesagt, wenn der Schuler weniger als 60 Punkte erreicht 
hatte. Als nachstes stoBen wir auf den Befehl IF. Dieser entfernt 
das Flag vom Stack. Ist es "falsch", dann wird die Meldung "fallt 
durch" ausgegeben. AuBerdem werden die Anweisungen zwischen ELSE 
und THEN iibergangen. Wenn andererseits das Flag "falsch" ist, 
dann ignoriert FORTH die Worter zwischen IF und ELSE und gibt 


( Einf ache Bewertung durch Verzweigung ) 

: NOTEN . " Der Schueler " 60 - 0< 

IF . " faellt durch " ELSE . " besteht " 
THEN 40 - NEGATE erst mit " . 

." weiteren Punkten bist du perfekt! " 
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somit die Meldung "besteht" aus. Jetzt haben wir als obersten 
Eintrag auf dem Stack wieder die Ausgangszahl (Punktzahl des 
Schulers minus 60). Das kommt von der DUP-Anweisung in Zeile 1. 
Jetzt legen wir eine 40 auf den Stack und fuhren den Befehl 
aus. Dieser ersetzt in bereits bekannter Weise die beiden Zahlen 
durch ihre Differenz. Das neue oberste Stack-Element ist somit 
die Punktzahl des Schulers minus 100. Da es sich dabei urn eine 
negative Zahl (oder die Null) handelt, drehen wir deren Vorzei- 
chen mittels NEGATE um. Damit wird die Zahl auf dem Stack posi- 
tiv. Dies ist die Zahl, die man auf die ursprungliche Punktzahl 
des Schulers addieren muB , um 100 zu erhalten. Angenommen, es 
handelt sich dabei um eine 15. In diesem Fall sorgt das restliche 
Programm daf iir , daB die Meldung M Erst mit 15 weiteren Punkten 
bist du perfekt" ausgegeben wird. 


4.2.1 Verschachtelte Kontrollstrukturen 


Wie wir gesehen haben, lassen sich in einem Programm liber die 
Befehlsfolge IF— ELSE-THEN zwei Zweige einfiihren, einer zwischen 
IF und ELSE, der andere zwischen ELSE und THEN. Innerhalb eines 
solchen Programm zweigs kann nun eine weitere Verzweigung statt- 
finden. Diese Art Programmstruktur bezeichnet man mit dem Fach- 
ausdruck verschachtelte Kon trolls truktur . Den Einsatz verschach- 
telter Kontrollstrukturen wollen wir an einem FORTH-Wort illu- 
strieren, das der Punktzahl von Schiilern die entsprechende Bewer- 
tung zuordnet. Das Programm erwartet, daB sich die Punktzahl als 
oberster Eintrag auf dem Stack befindet. Dann wird das neue Wort 
BENOTUNG ausgefiihrt. Bei einer Punktzahl von unter 60 gibt dieses 
Wort die Meldung aus: "NOTE: DURCHGEFALLEN" . Bei einer Leistung 
von mehr als 60 und weniger als 70 Punkten gibt es die Meldung 
aus: "NOTE: VIER" ; zwischen 70 und 80 Punkten wird ausgegeben: 
"NOTE: DREI " . Bei einer Punktzahl zwischen 80. und 90 erscheinen 
die Worter "NOTE: ZWEI" und zwischen 90 und 100: "NOTE: EINS". 

Das zugehorige Programm sehen Sie in Abbildung 4-5. Das neu de- 
finierte Wort tragt den Namen BENOTUNG. Zeile 1 gibt zuerst ein- 
mal den Text "NOTE:" aus. Als nachstes wird eine 60 auf dem Stack 
abgelegt und mittels - von der Punktzahl des Schulers subtra- 
hiert. Der oberste Stack-Eintrag stellt nunmehr also die Punkt- 
zahl des Schulers weniger 60 dar. Diese Zahl duplizieren wir 
mittels DUP. Als nachstes stellen wir den Vergleich 0< an. 
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0 ( Verschachtel te Kon trolls trukturen ) 

1 : BENOTUNG . " NOTE: M 60 - DUP 0< 

2 IF DURCHGEFALLEN " DROP 

3 ELSE 10 - DUP 0< IF 

4 . M VIER " DROP 

5 ELSE 10 - DUP 0< IF . " DREI " DROP 

6 ELSE 10 - 0< IF ZWEI " 

7 ELSE EINS " THEN 

8 THEN 

9 THEN 

1 0 THEN 

1 1 
12 
1 3 
14 
1 5 

ABBILDUNG 4-5: Ein FORTH-Wort mit verschachtel ten 

Kon trol Is trukturen 


Wenn das Flag, das dieser Vergleich als Ergebnis auf dem Stack 
hinterlaBt, "wahr" ist, dann bedeutet dies, daB die Punktzahl des 
Schulers schlechter als 60 sein muB. In diesem Fall geben wir die 
Meldung "DURCHGEFALLEN" aus. Es werden nun alle Anweisungen zwi- 
schen ELSE und THEN ignoriert. Bei diesem Punkt miissen wir beson- 
ders vorsichtig sein. Der Zweig zwischen ELSE und THEN enthalt 
namlich ein weiteres Vorkommnis von IF. Wir haben also den Fall, 
daB innerhalb einer Programmverzweigung eine weitere Programmver- 
zweigung eingebettet ist. Jedes IF innerhalb einer solchen ge- 
schachtelten Konstruktion bezieht sich auf eine ganz bestimmte 
ELSE-und-THEN-Folge . Wir miissen die zusammengehorigen IF-, ELSE- 
und THEN-Bef ehle sorgfaltig zusammen gruppieren. Dazu kann man 
sich des folgenden Verfahrens bedienen. 

Als erstes machen wir das innerste (am weitesten eingeschachtel- 
te) IF ausfindig. Die auf dieses folgende nachste Kombination von 
ELSE und THEN bezieht sich nun auf dieses innerste IF. Vom inner- 
sten IF gehen wir nach auBen und finden das vorletzte IF. Die 
nachste Kombination von ELSE und THEN hinter der soeben gefunde- 
nen bezieht sich nun auf dieses IF. Auf diese Art arbeiten wir 
von innen nach auBen und stellen so die Beziehung zwischen den 
einzelnen IF, ELSE und THEN her. Sie konnen auch noch ein anderes 
Verfahren anwenden. Dazu gruppieren wir das erste IF mit dem 
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nachsten ELSE und dem letzten THEN in der verschachtelten Struk- 
tur (Beachten Sie, daB dies nicht notwendigerweise das letzte 
THEN im gesamten Wort sein rauB!). Dann wiederholen wir dieses 
Vorgehen mit den verbleibenden IF, ELSE und THEN. So gehort z.B. 
in Abbildung 4-5 das IF auf Zeile 2 zum ELSE auf Zeile 3 und dem 
THEN auf Zeile 10. Das erste IF im Wort wird also auf das nachste 
ELSE und das letzte THEN bezogen . 

Wenn also in unserem Programmbeispiel das Original-Flag den Wert 
"wahr" hat, dann wird "DURCHGEFALLEN" ausgegeben, anschlieBend 
mittels DROP der Stack bereinigt und das Wort beendet (denn hin- 
ter dem zugehorigen THEN stehen keine weiteren Befehle mehr) . 1st 
andererseits das Flag "falsch" , dann werden die Befehle zwischen 
dem IF in Zeile 2 und dem ELSE in Zeile 3 ignoriert. Statt dessen 
gelangen die Worter zwischen dem ELSE von Zeile 3 und dem THEN 
von Zeile 10 zur Ausfuhrung. Die Zahl , die sich zu diesem Zeit- 
punkt an oberster Stack-Position befindet, ist die duplizierte 
Punktzahl des Schulers weniger 60. Jetzt legen wir in Zeile 3 
eine 10 auf den Stack und subtrahieren erneut. Die Zahl, die wir 
daraus als Ergebnis erhalten, ist nur dann groBer oder gleich 
Null, wenn die Ausgangspunktzahl grofier Oder gleich 70 war. Diese 
neue Zahl duplizieren wir ebenfalls in Zeile 3 mittels DUP. Dann 
kommt das Vergleichswort 0 < an die Reihe und legt ein Flag auf 
den Stack. Dieses wird vom nachsten IF entfernt. Hatte es den 
Wahrhei tswert "wahr", dann wird eine Vier ausgegeben. 

Versuchen Sie einmal , das gerade aktuelle IF mit seinem dazugeho- 
ngen ELSE und THEN in Beziehung zu bringen. Wie wir wissen, 
gehort zu dem IF von Zeile 3 das ELSE auf Zeile 5 und das THEN in 
Zeile 9. Bei einem "wahren" Flag wird also eine "VIER" ausgege- 
ben, anschlieBend mittels DROP der Stack bereinigt und die Pro- 
grammkontrolle an Zeile 9 und anschlieBend an Zeile 10 ubergeben , 
was bedeutet, daB das Wort endet. Ist das Flag jedoch "falsch", 
dann werden die Befehle zwischen dem IF auf Zeile 3 und dem ELSE 
von Zeile 5 ignoriert. Statt dessen gelangen die Worter zwischen 
dem ELSE in Zeile 5 und dem THEN in Zeile 9 zur Ausfuhrung. Hier 
verfolgen wir wieder dieselben Schritte wie bereits zuvor und 
geben "DREI" oder "ZWEI" aus , je nachdem, welche Punktzahl der 
Schuler erreicht hat. Beachten Sie, daB bei Ausfuhrung des IF von 
Zeile 6 der Schuler entweder eine 2 oder eine 1 erhalt. Wenn das 
Flag, das sich durch das Ergebnis des 0 < in Zeile 6 ergibt, 
"wahr" ist, dann sollte eine 2 ausgegeben werden, anderenfalls 
wird eine 1 auf dem Bildschirm erscheinen. 
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FORTH bedient sich des Re turns tacks , um die Abarbeitung solcher 
verschachtelter Kon trolls trukturen wie in Abbildung 4-5 zu bewal- 
tigen. Kommen bei verschachtelten Verzweigungen die Worter >R und 
R> vor, dann miissen Sie auBerste Sorgfalt walten lassen. In jedem 
Zweig einer solchen Struktur muB eine gleiche Anzahl von >R und 
R>-Worten zur Ausfuhrung gelangen. Beach ten Sie, daB es dazu 
nicht reicht, lediglich eine gleiche Anzahl von >R und R>-Worten 
im Programm stehen zu haben. Es miissen auch gleich viele dieser 
Worter ausgefuhrt werden. Dies gilt fur jeden moglichen Zweig in 
Ihrem Programm. Selbst wenn nur zwei Zweige existieren, also 
keine Verschachtelungen vorgenommen werden , miissen immer noch 
gleichviel R> und >R-Befehle ausgefiihrt werden. Wenn Sie sich 
nicht an diese Vorschrift halten, dann konnen Sie Ihr System zum 
Absturz bringen. Sie miiBten es dann erneut starten und wiirden 
unter Umstanden alle Daten verlieren, wenn Sie diese nicht auf 
Diskette gesichert haben. 


4.3 Unbedingte Schleifen 


Oft ist es notig, daB Ihr Programm eine Folge von Schritten wie- 
derholt ausfiihrt. Man spricht in diesem Fall von einer Programm- 
schleife . Wir konnten ein FORTH-Wort schreiben, das aus einer 
Folge von Befehlen besteht und dann ein anderes FORTH-Wort, das 
dieses erste FORTH-Wort wiederholt aufruft. Dies ist aber hoch- 
stens eine Notlosung, besonders , wenn die Operationen sehr viele 
Male wiederholt werden miissen. In FORTH gibt es fiir diesen Zweck 
spezielle Worter, mit denen Programmschleifen ausgelost werden 
konnen, ohne daB der Programmierer die Wiederholung der Befehle 
von Hand durch Hinschreiben bewirken muB. Das Prinzip der Pro- 
grammschleifen eroffnet noch einige weitere ntitzliche Moglich- 
keiten, die wir in diesem Abschnitt besprechen wollen. 

DO und LOOP - Diese beiden Worter werden eingesetzt, um elemen- 
tare Schleifen in Programmen zu bewerks telligen . Eine solche 
Schleife hat folgenden allgemeinen Aufbau 


n 2 DO anweisungen a LOOP 


(4-12) 
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dieses Konstrukt hat die folgende Bedeutung: Bei Ausfiihrung einer 
Arweisung der Form (4-12) werden die Werte und n 2 vom Stack 
entfernt und auf dem Return-Stack abgelegt, wobei dort n^ zu- 
:berst zu liegen kommt. (Was die Werte n^ und n^ betrifft, so 
r,ussen Sie sich um den Return-Stack nicht kummern . Nach Verlassen 
ier Schleife wird dieser namlich automatisch von und n^ berei- 
r.igt. ) Als nachstes werden die "anweisungen a" ausgefiihrt. Trifft 
cer FORTH-Interpreter nun auf das Wort LOOP, so erhoht er den 
Wert von n^ auf dem Return-Stack um 1 und vergleicht diesen neuen 
Wert mit . Falls n„ kleiner als n^ ist, werden erneut die "an- 
-eisungen a" wiederholt. Jedesmal beim Erreichen des Wortes LOOP 
-ird also um 1 erhoht ( inkrementiert ) und getestet. Wird es 
iabei einmal gleich oder groBer n , dann wird die Schleife ver- 
lassen, und die Anweisungen hinter LOOP werden ausgefiihrt. Ist 
andererseits n^ immer noch kleiner als n^ , dann werden die "an- 
weisungen a" erneut ausgefiihrt. Deswegen sorgen die folgenden 
ref ehle 


7 4 DO HALLO " LOOP 


(4-13) 


iafur, daB das Wort HALLO dreimal auf dem Bildschirm ausgegeben 
wird. 

Die Stack-Relation bei Ausfiihrung eines DO lautet: 


n„ n^ — > 


(4-14) 


Die Zahl n^ heiBt Testwert der Schleife; sie bleibt unverandert. 
Die Zahl n^ bezeichnet man als Schleif enindex . Sie wird bei jedem 
Durchgang durch die Schleife um 1 erhoht. Beach ten Sie, daB min- 
iestens ein Durchgang durch die Schleife vorgenommen wird, da der 
Schleif enindex erst bei Erreichen von LOOP mit dem Testwert ver- 
glichen wird. 

Man kann sich den Schleifenindex vom Return-Stack auf den Parame- 
ter-Stack mit Hilfe des FORTH-Wortes I kopieren. Auch den Test- 
wert kann man vom Return-Stack auf den Parameter-Stack bringen, 
und zwar mit dem Wort I'. Beachten Sie, daB keine dieser beiden 
Operationen etwas am Return-Stack verandert. Wir haben sie be- 
reits in Abschnitt 2-6 kennengelernt . Als Beispiel fur ein Pro- 
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gramm mit Schleife wollen wir ein FORTH-Wort schreiben , das die 
Fakultat einer Integer an oberster Stack-Position berechnet. In 
der mathematischen Fachliteratur stellt man die Fakultat einer 
Zahl mit Hilfe des Ausruf ezeichens dar. Als Beispiel 

51=5*4*3*2*1=1 20 . 

Entsprechend ist 31=3*2*1=6. (Beachten Sie , daft man "5!" als "5- 
Fakultat" liest) . Die Definition des FORTH-Wortes FACT entnehmen 
Sie bitte der Abbildung 4-6. Wir wollen uns einmal ansehen, wie 
dieses Wort funktioniert . Zur Berechnung von 5! geben wir ein: 


5 FACT (RETURN) 


(4-15) 


Das bedeutet, daft sich bei Aufruf von FACT eine 5 auf dem Stack 
befindet. Die Definition von FACT enthalt alle notwendigen Anwei- 
sungen , um das Schleif enkons trukt "in Gang zu setzen". Dabei soil 
bei jedem Durchgang durch die Schleife eine Multiplikation statt- 
finden. Der Anfangswert des Schlei f enindex ist 1. Wenn wir die 
Fakultat von 5 berechnen wollen, dann sollten wir die Schleife 
fiinfmal durchlaufen. Deshalb benotigen wir einen Testwert von 6. 
Dies kommt daher , daft die Schleife erst dann verlassen wird , wenn 
der erhohte Index dem Testwert entspricht. 

Jetzt zur Abbildung 4-6. Als erstes pushen wir 1 auf den Stack 
und rufen das Wort + . Dadurch wird der Ausgangswert urn 1 erhoht. 
Wir hatten dies naturlich genauso mit Hilfe des Befehls 1+ errei- 
chen konnen. Dann legen wir eine weitere 1 auf den Stack. Zu die- 
sem Zeitpunkt der Programmausf uhrung haben wir also zuoberst auf 
dem Stack eine 1 , gefolgt von der Ausgangszahl , welche um 1 er- 
hoht wurde - in diesem Fall also die 6. Nun legen wir eine wei- 
tere 1 auf den Stack. Diese brauchen wir in unseren Berechnungen . 
Ehe wir damit aber beginnen konnen, rruissen wir den Anfangswert 
des Schleifenindex sowie den Testwert an die richtigen Stack- 
Positionen, also an erste und zweite Position bringen. Dies 
geschieht durch zweimalige Ausfuhrung von ROT. In unserem Bei- 
spiel 4-15 bedeutet dies, daft nach Ausfuhrung der zwei ROT-Worter 
der Stack folgendes Aussehen hat: 161. Dabei ist die letzte 

Zahl der oberste Stack-Eintrag . Jetzt kommt endlich das DO an die 
Reihe , welches die Schleife einleitet. DO entfernt die obersten 
beiden Stack-Werte und legt sie auf den Return-Stack. Infolge- 
dessen befindet sich auf dem Daten-Stack jetzt zuoberst eine 1 . 


136 



4 Programmsteuerung - Strukturiertes Programmieren 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
1 2 
1 3 
14 
1 5 


( Berechnung der Fakultaet ) 


FACT 


1 + 
DO I 


1 1 


ROT 
LOOP . 


ROT 


ABBILDUNG 4-6: Ein Fakul tatsprogramm 


Betrachten wir nun die Anweisungen zwischen DO und LOOP. Die er- 
ste ist der Befehl I. Diese dupliziert den Schleifenindex an die 
oberste Daten-Stack-Position . AnschlieBend wird mittels * multi- 
pliziert. Somit werden die obersten beiden Stack-Eintrage durch 
ihr Produkt ersetzt. Beim ersten Schieifendurchgang berechnen wir 
also 1*1. Beim zweiten Durchgang durch die Schleife hat der Index 
den Wert 2. Deshalb wird das Produkt 1*2=2 berechnet. Der dritte 
Schieifendurchgang arbeitet mit einem Schleifenindex von 3 und 
berechnet 2*3=6. Nach AbschluB der Schleife haben wir also die 
gewiinschte Fakultat berechnet. Dieser Wert wird nach Beendigung 
der Schleife durch das Punktkommando ausgegeben. 


4.4 Schleifen- Increment mittels +LOOP 


Wir haben gesehen , daB bei jedem Durchgang durch eine Schleife 
der Index automatisch um 1 erhoht wird. Manchmal kann es aber 
wunschenswert sein, den Schleifenindex um einen anderen Betrag 
als 1 zu verandern. Dazu ersetzen wir einfach das FORTH-Wort LOOP 
durch ein anderes Wort, welches dies bewerkstelligt . Dieses Wort 
lautet +LOOP. Bei Ausfuhrung von LOOP wird der Schleifenindex um 
1 erhoht, und anschlieBend wird uberpruft, ob sein Betrag bereits 
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den Testwert iibersteigt. Anders bei +LOOP: Bei Ausfiihrung dieses 
Wortes wird der oberste Stack-Eintrag vom Stack entfernt und 
dient jetzt als Schleifeninkrement , d.h., er gibt den Betrag an, 
um den der Schleifenindex erhoht werden soli* Nachdem der Schlei- 
fenindex um das Schleifeninkrement erhoht wurde , wird der neue 
Indexwert mit dem Testwert verglichen, wobei FORTH nachsieht, ob 
der Schleifenindex kleiner als der Testwert ist. (Dies gilt nur 
fur den Fall, daB das Schleifeninkrement positiv war.) Die Stack- 
Relation fur das Wort +LOOP lautet 


n — > 


(4-16) 


Als Beispiel fur dieses Wort werden wir ein kleines Programm 
schreiben, welches die Summe aller ungeraden Zahlen angibt, die 
innerhalb eines durch die zwei obersten Stack-Eintrage festgeleg- 
ten Bereiches liegen. Wir geben diesem neuen Wort den Namen 
ODDSUM. Beispielsweise sollte 


17 3 ODDSUM (RETURN) (4-17) 


die Summe der ungeraden Zahlen zwischen 3 und 17 einschlieBlich 
auf dem Bildschirm ausgeben. Die Definition von ODDSUM lautet: 


: ODDSUM SWAP 1+ 0 SWAP ROT DO I + 2 +LOOP (4-18) 

Die erste Operation in diesem Wort ist ein Austausch der beiden 
obersten Stack-Werte mittels SWAP. Im Beispiel (4-17) bringt dies 
die Zahl 17 an oberste Stack-Position. Sie wird anschlieBend 
mittels 1 + um eins erhoht. Dann bringen wir noch eine 0 auf den 
Stack und fuhren erneut SWAP aus . Das anschlieBende Wort ROT 
fiihrt dann dazu, daS wir fur Beispiel (4-18) den Stack 0 18 3 
erhalten. Bei dem Einstieg in die DO-Schleife haben wir also (in 
Beispiel (4-17)) einen Anfangswert fur den Schleifenindex von 3, 
wahrend der Testwert 18 ist. DO entfernt diese beiden Zahlen vom 
Stack, so daB sich nun die Null dort zuoberst befindet. Bei einem 
Durchgang durch die Schleife legt I den Schleifenindex auf den 
Stack. Dieser ist in unserem Beispiel beim ersten Durchgang 
gleich 3, so daB innerhalb der Schleife auf die 0 eine 3 addiert 
wird. Diese beiden Werte - 3 und 0 - werden entfernt und durch 
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ihre Summe ersetzt. AnschlieBend legen wir eine 2 auf den Stack. 
Sie sorgt zusammen mit dem Wort +LOOP dafiir, daB der Schleif enin- 
dex um 2 erhoht wird. Deshalb wird beim nachsten Durchgang durch 
die Schleife eine 5 auf die bisher aufgelaufene Summe addiert. 
Wenn schlieBlich der erhohte Schleifenindex groBer als der Test- 
wert der Schleife ist, dann endet die Ausfuhrung der Programm- 
schleife. Das Punktkommando gibt die gewiinschte Summe aus. 

Die bisherigen Beispielprogramme benutzten positive Werte fur den 
Schleifenindex, den Testwert und das Schleifeninkrement . Dies muB 
]edoch nicht so sein, alle drei Parameter konnen genausogut nega- 
tive Werte besitzen. Bei einem positiven Schleifeninkrement wird 
die Schleife verlassen, wenn der Schleifenindex groBer oder 
gleich dem Testwert ist. 1st andererseits das Schleifeninkrement 
negativ, dann endet die Schleife, wenn der Schleifenindex einen 
Wert besitzt, der kleiner als der Testwert ist. Betrachten Sie 
z.B. das Wort NEGTEST: 


: NEGTEST -5 2 DO I . -2 +LOOP } 


(4-19) 


Wenn wir dieses Wort auf ruf en , so erhalten wir als Ergebnis 
20-2-4 ok 

LEAVE - Mit dem FORTH-Wort LEAVE kann man das Verlassen einer 
Schleife erzwingen. Bei Ausfuhrung von LEAVE wird der Testwert 
ier Schleife auf den aktuellen Wert des Schleifenindex gesetzt. 
ladurch wird die Schleife bei dem nachsten LOOP verlassen. LEAVE 
wird fast immer in Zusammenhang mit Verzweigungen eingesetzt. Wir 
-erden noch spater in diesem Kapitel ein Anwendungsbei spiel fur 
LEAVE kennenlernen. 
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4.5 Verschachtelte Schleifen 


Eine Schleife kann innerhalb einer anderen eingeschachtelt sein. 
Wir wollen dies an einem kleinen Beispiel demonstrieren : 


: NEST 101 DO 5 3 DO I . LOOP LOOP ; 


(4-20) 


Wenn wir das Wort NEST aufrufen, dann erhalten wir neunmal hin- 
tereinander die Zahlen 3 und 4 auf dem Bildschirm. Die Wortdef ig- 
nition enthalt zwei Schleifen - eine auBere Schleife, deren Index 
mit 1 beginnt und die einen Testwert von 10 hat, sowie eine 
innere Schleife, deren Index den Anfangswert 3 hat und die mit 
einem Testwert von 5 arbeitet. Bei Ausfiihrung von NEST gehen wir 
zuerst einmal in die auBere Schleife. Dabei werden die Zahlen 5 
und 3 auf den Stack gelegt. Als nachstes Wort leitet DO die 
innere Schleife ein. Dies bedeutet, daB die 5 und die 3 wieder 
vom Stack entfernt und auf den Return-Stack gepusht werden. 
Infolgedessen werden die 10 und die 1, die vor der auBeren DO- 
Schleife auf dem Stack waren , um zwei Positionen auf dem Return- 
stack nach unten wandern. Nun stoBen wir auf das FORTH -Kommando 
I. Dieses legt den Wert des Schleifenindex auf den Stack; beach- 
ten Sie dabei, daB I stets den Index der Schleife ausgibt, in der 
wir uns gerade befinden. In unserem Beispiel ist dies gerade die 
innerste Schleife. Beim ersten Durchgang durch die innerste 
Schleife hat der Index den Wert 3, weswegen auch dieser Wert auf 
den Stack gelegt wird. Das Punk t kommando entfernt ihn wieder von 
dort und gibt ihn aus . Der nachste Schleifendurchgang erfolgt mit 
einem Schleifenindex von 4; dieser Wert wird gedruckt. Die innere 
Schleife bricht nun ab , und ihre Parameter werden vom Return- 
Stack entfernt. Wir befinden uns aber immer noch in einer 
Schleife, namlich in der auBeren Schleife, deren Schleifenindex 
und Testwert jetzt zuoberst auf dem Return-Stack sind. Diese 
auBere Schleife durchlaufen wir nun zum zweitenmal. Wieder werden 
die 5 und die 3 auf den Stack gelegt und die innere DO-Schleife 
durchlaufen. Es wiederholen sich dieselben Vorgange wie zuvor: 3 
und 4 werden wieder ausgegeben, und die innere Schleife wird 
verlassen. Dieser ganze Vorgang wird so lange wiederholt, bis die 
auBere Schleife insgesamt neunmal durchlaufen wurde. 

Wenden wir uns noch einmal dem I-Befehl zu. Er besorgt den Index 
der Schleife, die gerade ausgefiihrt wird, und legt ihn auf den 
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Daten-Stack. 1st die aktuelle Schleife die innerste, dann wird I 
deren Index auf den Stack legen. 1st die Ausfuhrung der innersten 
Schleife jedoch abgeschlossen , dann dupliziert I den auBeren 
Schleifenindex auf den Stack. Ahnlich sorgt das FORTH-Wort I' 
dafilr, daB der Testwert der gerade in Aktion befindlichen Schlei- 
fe auf den Stack gelegt wird. Manchmal kommt es vor, daB wir uns 
in einer inneren Schleife befinden, aber den Index der auBeren 
Schleife auf den Stack gelegt haben wollen. Dies erreichen wir 
mit dem FORTH-Wort J (vergleiche Abschnitt 2-6). Beachten Sie, 
daB I , I' und J im Return-Stack nichts verandern. Nach AbschluB 
einer Schleife werden alle ihre Schleifenparameter vom Return- 
Stack entfernt. Sie brauchen sich darum nicht zu kuirunern. 

Bei eingeschachtelten Schleifen muB die innere Schleife vollstan- 
dig innerhalb der auBeren Schleife liegen. Beachten Sie, daB 
jeder DO-Befehl mit einem zugehorigen LOOP Oder +LOOP verbunden 
ist. Um herauszuf inden , welches DO zu welchem LOOP bzw. +LOOP 
gehort, konnen Sie im wesentlichen genauso vorgehen, wie wir es 
bei IF und THEN kennengelernt haben. Machen Sie zuerst das in- 
nerste DO ausf indig. Dazu gehort das nachste vorkommende LOOP 
oder +LOOP. Dann suchen Sie das vorhergehende DO. Dazu gehort das 
nachste LOOP, ausgehend von dem zuletzt gefundenen LOOP. Wenn wir 
in dieser Weise vorgehen, so konnen wir den Geltungsbereich jeder 
Schleife ausfindig machen. 

Als Beispiel fur verschachtelte Schleifen wollen wir ein Programm 
schreiben, das pythagoreische Zahlentripel berechnet. Damit be- 
zeichnen wir drei ganze Zahlen, die die Lange der drei Seiten 
ernes rechtwinkeligen Dreiecks wiedergeben sollen. Die Zahlen a, 
b und c (allesamt Integers) stellen ein py thagoreisches Zahlen- 
tripel dar. 

2 2 2 

a z + b Z = c (4-21 ) 


Wenn etwa a = 3 und b = 4, dann ergibt sich c = 5, und somit ist 
3, 4, 5 ein solches pythagoreisches Tripel. Nun gibt es nur eine 
Handvoll ganzer Zahlen, die die Gleichung (4-21) erfiillen. Wir 
wollen uns deshalb ein FORTH-Programm schreiben, das solche Tri- 
Del fur Werte von a und b zwischen 1 und 100 berechnet. Das zuge- 
horige . Programm sehen Sie in Abbildung 4-7. Wir definieren uns 
zuerst zwei neue Worter, die wir benotigen. Das erste, SQUARE, 
ist uns bereits aus Abschnitt 2-3 unter dem Namen ZWEITE bekannt. 
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Es entfernt die oberste Zahl von Stack und ersetzt sie durch ihr 
Quadrat (die zweite Potenz) . Das zweite Wort, PT, druckt eine 
Zahl in einem Datenfeld mit einer Breite von 15 Spalten. 

Die Definition des Wortes zur Berechnung des py thagoreischen Zah- 
lentripels begmnt auf Zeile 3. Wir haben dem Wort den Namen 
PYTHTRIP gegeben. Es zeichnet sich durch drei verschachtel te 
Schleifen aus: eine auBere Schleife, in die zwei weitere Schlei- 
fen eingeschachtelt sind, namlich eine mittlere Schleife (inner- 
halb der auBeren Schleife) und eine innerste Schleife, die in die 
anderen beiden eingebettet ist. 

Wir wollen einmal sehen , wie unser Wort funktioniert . Die Zeile 3 
legt erst einmal den Testwert 100 und den Schleif enindex 1 auf 
den Stack- Diese werden von DO entfernt und auf den Return-Stack 
gelegt. Damit sind alle notigen Vorkehrungen fur die auBere 
Schleife getroffen. Das nachste Wort, I, dupliziert den Lauf index 
der auBeren Schleife auf den Stack. Diesen verdoppeln wir durch 
DUP und lassen uns von SQUARE deren Quadrat berechnen. Nach Be- 
endigung der Zeile 3 befinden sich also auf dem Stack der Index 
der auBeren Schleife sowie dessen Quadrat (das Quadrat ist zu- 
oberst) . Die nachste Zeile leitet die mittlere DO-Schleife ein. 
Es ist sehr wichtig, daB nach einem Durchgang durch die mittlere 
Schleife der oberste Stack-Eintrag unverandert bleibt. Er muB 
nach Vollendung der mittleren Schleife nach wie vor den Laufindex 
der auBeren Schleife und dessen Quadrat enthalten. Zeile 4 legt 
erst einmal die 100 auf den Stack. AnschlieBend besorgen wir uns 
mit I den Index der auBeren Schleife. Wir tun dies, um die mehr- 
malige Berechnung desselben Zahlentripels zu vermeiden. Wenn wir 
z.B. die Zahlen 3, 4 und 5 gefunden haben, dann wollen wir nicht 
auch noch 4, 3 und 5 finden. Dadurch wird unser Prograrom um eini- 
ges schneller. Nachdem so der Testwert und der Schleif enindex fur 
die mittlere Schleife vorbereitet worden sind, holt sich das DO 
von Zeile 4 diese beiden Werte vom Stack und pusht sie auf den 
Return-Stack. Als nachstes kommt der DUP-Befehl an die Reihe. An 
dieser Stelle duplizieren wir somit das Quadrat des Index der 
auBeren Schleife- Dann lassen wir uns durch I den Index der mit- 
tleren Schleife auf den Stack legen, den wir mittels SQUARE 
quadrieren. Das letzte Wort auf Zeile 4, der Befehl +, sorgt 
dafur, daB die Zahl an oberster Stack-Position sich nun aus dem 
Quadrat der Indizes der auBeren i^nd mittleren Schleife ergibt. 
Dies ist aber nichts anderes als a + b , wobei a den Index der 
auBeren und b den Index der mittleren Schleife darstellt. 
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0 ( Pythagoreische Zahlentripel ) 


1 : 

SQUARE 

DUP * 






2 : 

PT 1 5 .R 

: 






3 : 

PYTHTRIP 

100 1 DO 

I 

DUP 

SQUARE 


4 


1 00 I 


DO 

DUP 

I SQUARE + 


5 


142 

I 

DO 

DUP 

I SQUARE 

DUP 

6 


0 = 

IF 

I J 

6 PICK 

CR PT PT 

PT THEN 

7 


0< 


IF 

LEAVE 

THEN 


3 


LOOP 



DROP 



9 


LOOP 


DROP 

DROP 


1 0 


LOOP CR 







1 1 
12 
1 3 

14 

15 


ABBILDUNG 4-7: Ein Programm zur Berechnung py thagoreischer 

Zahlentripel zwischen 1 und 100 


Jetzt kommt die innerste Schleife an die Reihe. Auch hier ist es 
wichtig, daB der Stack nach jedem Durchlauf durch diese Schleife 
unverandert bleibt. Zeile 5 gibt als erstes den Testwert 142 auf 
den Stack. Falls namlich a und b gleich 100 oder kleiner sind, 
dann kann c, d^r Index der inneren^Schlei^e , nicht groBer als 142 
sein (denn 142^ ist groBer als 100 + 100 ). Als nachstes liefert 
uns I den Index der mittleren Schleife, der als Anfangswert fur 
den Lauf index der inneren Schleife dient, wahrend 142 der Test- 
wert dieser Schleife ist. Den Grund, als Testwert fur die inner- 
ste Schleife 142 zu nehmen , haben wir bereits dargestellt. DaB 
wir den Index der mittleren Schleife als Anfangswert fur den 
Lauf index der innersten Schleife setzen, liegt daran, daB c nicht 
kleiner als a oder b sein kann. Die innerste Schleife soli ja 
alle moglichen Werte fur c testen, und unmbgliche Werte wollen 
wir dabei gar nicht erst betrachten. Das innerste DO in Zeile 5 
entfernt diese Schleif enp^rame^er und pusht sie auf den Return- 
Stack. Jetzt ist wieder a + b oberstes Stack-Element, welches 
mittels DUP dupliziert wird. Wir besorgen uns mit I den Index der 
inneren Schleife, quadrieren ihn mit SQUARE und subtrahieren 
diesen Wert vom zweiten Stack-Eintrag , ^o daj^ nac^ Ausfuhrung von 
- der Stack zuoberst das Ergebnis von a + b - c enthalt. Falls 
diese Zahl gleich 0 ist, dann haben wir ein pythagoreisches 
Zahlentripel gef unden. 
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Diesen Test nehmen wir in Zeile 6 vor. Das Wort 0 = liefert ein 
Flag, das wir mit IF auswerten . Falls es wahr ist, bedeutet dies, 
daB wir eines der gesuchten Tripel gef unden haben. Dieses wollen 
wir naturlich auf dem Bildschirm ausgeben. Die Worter I und J 
hinter dem IF-Befehl legen die Laufindizes der innersten und 
mittleren Schleife auf den Stack. Der PICK-Befehl sorgt zusammen 
mit der Zahl 6, die zuvor auf den Stack gelegt wird , dafiir, daB 
der Index der auBersten Schleife nach oben befordert wird. Wir 
haben somit alle 3 gewunschten Indizes an den richtigen Stellen 
und konnen sie mit unserem selbstdef inierten PT ausdrucken las- 
sen. Wenn wir allerdings keines der gesuchten Zahlen tripel gef un- 
den haben, dann war das Flag, das in Zeile 6 mittels 0 = getestet 
wurde, falsch, und die Befehle zwischen IF und THEN werden igno- 
riert . 

Wenn das Quadrat des innersten Schleifenindex groBer wird als die 
Summe der Quadrate der beiden auBeren Schleif enindizes , dann gibt 
es keinen Grund , die innerste Schleife noch weiter zu durch- 
laufen. Dieser Sachverhalt wird in Zeile 7 uberpruft. Falls das 
Wort 0< ein wahres Flag ergibt, dann verlassen wir mittels LEAVE 
die innerste Schleife. Wie Sie bereits wissen, erzwingt LEAVE, 
daB der Testwert der gerade in Ausfiihrung befindlichen Schleife - 
in diesem Fall der innersten - gleich dem Schleifenindex gemacht 
wird. Das fiihrt dazu, daB bei der Erreichung des LOOP diese 
Schleife (vorzeitig) verlassen wird. Wir befinden uns aber imner 
noch in der mittleren Schleife. Ehe wir jedoch einen neuen Durch- 
gang durch die mittlere Schleife in Angriff nehmen konnen, mussen 
wir den Stack wieder in den Zustand iiberfiihren, in dem er sich 
vor Eintritt in die innerste Schleife be^and. Nun haben wir in 
Zeile 4 mittels DUP den Wert von a^ + d auf den Stack dupli- 
ziert; diesen mussen wir jetzt wieder loswerden. Dafiir sorgt das 
Wort DROP in Zeile 8. Wenn FORTH nun auf das Wort LOOP in Zeile 9 
stoBt, dann unternimmt es einen weiteren Durchgang durch die 
mittlere Schleife, vorausgesetzt deren Endekriterium ist noch 
nicht erreicht. Wir wiederholen diesen ganzen ProzeB und testen 
dabei immer wieder den Index der innersten Schleife, bis die 
mittlere Schleife insgesamt 1 OOmal durchlaufen wurde. Danach, 
also nach Beendigung der mittleren Schleife, mussen wir den Index 
der auBeren Schleife und dessen Quadrat vom Stack entfernen, um 
alles fur einen erneuten Durchgang durch die auBerste Schleife 
vorzubereiten . Dazu dienen die beiden DROP von Zeile 10. Danach 
geht ' s erneut in die auBerste Schleife, und der ganze Vorgang 
wiederholt sich erneut. 
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Sicher ist Ihnen aufgef alien, daB wir beim "Layout" unseres Pro- 
grams darauf geachtet haben , jede Schleife eingeruckt im Ver- 
haltnis zur vorherigen darzus tellen . Dadurch wird das Program 
ubersichtlicher , denn Sie sehen sofort, welche Schleife in welche 
eingeschachtelt ist. Lesbarere Programme sind aber leichter zu 
verfolgen und entsprechend fehlerfrei zu machen. 

Noch ein weiterer wichtiger Aspekt laBt sich an diesem Beispiel 
nachvollziehen. Wenn Sie Schleifen programmieren, dann sollten 
Sie darauf achten , daB der Stack nicht mit Daten uberladen wird. 
Dies kann dazu f iihren , daB Sie unwissentlich Ihr Betriebssystem 
uberschreiben , wodurch sich Ihr Rechner "totstellt" und nurmehr 
durch einen Kaltstart "wiederbelebt" werden kann. Ferner sollten 
Sie darauf achten, keine sog. Endlosschleif en zu schreiben, also 
Schleifen, die niemals abbrechen. So etwas ergibt sich etwa dann, 
wenn das Inkrement in einer Schleife den Wert 0 hat. Bei jedem 
Surchgang durch die Schleife wurde 0 auf den Schleifenindex ad- 
diert werden, wodurch sich dieser naturlich niemals andert und 
der Testwert auch nie erreicht wird. Eine andere Moglichkeit fur 
Endlosschleifen ergibt sich, wenn sowohl der Anfangs- als auch 
der Testwert positiv, das Inkrement aber negativ ist. 


4.6 Bedingte Schleifen 


Wir konnen jetzt nut DO und LOOP Schleifen programmieren. Bei 
diesen Schleifen liegt von Anfang an fest, wie oft sie durchlau- 
fen werden (durch Angabe des Testwerts und des Anfangswerts fur 
den Lauf index) , und es gibt keine elegante Methode, sie vorzeitig 
zu verlassen. Man kann zwar in den Schleif enkorper ein IF mit 
erne m LEAVE einbauen (vergleiche das letzte Programmbei spiel ) , 
doch ist diese Methode nicht besonders ubersichtlich, und es gibt 
- wie wir sehen werden - dafiir elegantere Losungen. Schleifen vom 
zisher besprochenen Typus, bei denen "unerbittlich" eine festge- 
setzte Anzahl von Schleifendurchgangen ausgefiihrt werden, nennt 
ran unbedingte Schleifen. Eine andere Art von Schleifen, die sog. 
redingten Schleifen, erlaubt es , auf komfortable Weise Bedingun- 
:en fur ein vorzeitiqes Verlassen der Schleife mit anzugeben. In 
diesem Abschnitt werden wir einige Moglichkei ten zum Programmie- 
ren von solchen bedingten Schleifen kennenlernen . 


145 



4 Programmsteuerung - Strukturiertes Programmieren 


BEGIN und UNTIL - Die FORTH-Worter BEGIN und UNTIL dienen zum 
Programmieren von bedingten Schleifen. Mit diesen beiden Wortern 
gebildete bedingte Schleifen haben die folgende allgemeine Form: 


BEGIN anweisungen a (flag) UNTIL 


(4-22) 


Dies funktioniert wie folgt. Wenn der FORTH-Interpreter zum er- 
sten Mai auf das Wort BEGIN trifft, dann fuhrt er die "anweisun- 
gen a" aus. Beim Auftauchen von UNTIL wird der oberste Stack-Ein- 
trag entfernt und als Flag behandelt. Dieses Flag kommt in der 
Regel durch Operationen innerhalb der "anweisungen a" auf den 
Stack. Wenn das Flag falsch ist, dann werden die "anweisungen a" 
wiederholt. Dies geht so lange weiter, bis das Flag wahr wird. In 
diesem Fall wird die Schleife verlassen , und FORTH fuhrt die Wor- 
te hinter UNTIL aus. Das Wort UNTIL hat folgende Stack-Relation: 


n -> 


(4-23) 


Als Beispiel fur eine bedingte Schleife wollen wir ein FORTH-Wort 
schreiben , das eine beliebige Anzahl von Zahlen aufaddiert. Wenn 
wir das Wort ADDER aufrufen, dann fordert es den Benutzer zur 
Eingabe einer Zahl auf, indem es ein Fragezeichen auf den Bild- 
schirm bringt. Nach Eingeben einer Zahl (und Drucken der RETURN- 
Taste) erscheint erneut das "?" . Auf diese Art konnen Sie eine 
beliebige Anzahl von Zahlen eingeben; die Zahleneingabe wird 
durch eine Null beendet. Wenn das Programm bemerkt, daB Sie 0 
eingegeben haben, dann bricht es die Schleife ab und gibt die 
Summe aller bisher eingegebenen Zahlen aus. Sie sehen das Pro- 
gramm in Abb. 4-8. 


0 ( Summe einer beliebigen Anzahl von Zahlen ) 

1 : ADDER 0 BEGIN #IN DUP ROT + SWAP 

2 0 = UNTIL CR . ; 

3 

4 

5 

ABBILDUNG 4-8: Ein Programm zum Aufaddieren einer 
beliebigen Anzahl von Zahlen 
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*£r.de n wir uns nun den Einzelheiten dieses Programms zu. Als 
rrstes pushen wir 0 auf den Stack. Dann wird durch BEGIN die 
re-dmgte Schleife eingeleitet. Die erste Anweisung innerhalb der 
Scr.leife ist das Wort #IN, welches die Eingabeauf f orderung ? auf 
ler. Bildschirm bringt und so lange wartet, bis der Benutzer eine 
Z-zs.l eingegeben hat. Diese Zahl duplizieren wir. Dann holen wir 

mit ROT den dritten Stack-Eintrag an die oberste Position; 
rei Eintritt in die Schleife ist dies eine 0, bei den nachfolgen- 
ier. Schleifendurchgangen befindet sich an dieser Stelle jedoch 
i-e Summe der bisher eingegebenen Zahlen. Mittels + addieren wir 
iazu die letzte Benutzereingabe . Diese Zahl wird anschlieBend von 
SWAP an die oberste Stack-Position befordert. Wir testen nun mit 
2 =, ob es sich dabei urn eine 0 handelt. BekanntermaBen entfernt 
2 = die Testzahl und legt statt ihrer ein Flag auf den Stack. 
I.eses ist nur dann wahr, wenn die zum Vergleich herangezogene 
lar.l gleich 0 war. Das 0 = ist auch Grundlage fur die Entschei- 
z-~g von UNTIL. Ist es falsch, dann erfolgt ein erneuter Durch- 
;ar.g durch die Schleife, was bedeutet , daB die Befehle zwischen 
BEGIN und UNTIL erneut durchlaufen werden. Wir haben die Schleife 
*: geschrieben, daB am Ende eines Schleifendurchlauf s die Summe 
ler bisher eingegebenen Zahlen an oberster Stack-Position steht. 

nun der Bediener zuletzt eine 0 eingegeben, dann ist das von 
l = erzeugte Flag in Zeile 2 wahr. In diesem Fall wird die 
ictiieife verlassen, wir erzeugen mittels CR einen Zeilenvorschub 
~_-d geben die bisher berechnete Summe aus . 

32GIN, WHILE und REPEAT - Mit diesen drei Worten kann in FORTH 
i-ns andere Art von bedingter Schleife formuliert werden. Diese 
*i: die allgemeine Form: 

BEGIN anweisungen a (flag) WHILE anweisungen b REPEAT (4-24) 


line mit BEGIN, WHILE und REPEAT gebildete Schleife funktioniert 
: : _ gendermaBen. Der Anfang der Schleife wird durch BEGIN einge- 
leitet. Zuerst einmal werden die "anweisungen a" ausgefuhrt. 

welches hinter diesen Anweisungen kommt, behandelt den 
icersten Stack-Edutracg als Flag und entfernt ihn von dort . Falls 
das Flag wahr ist, dann sorgt WHILE dafiir, daB die "anweisungen 
r M ausgefiihrt werden und anschlieBend zum Anfang der Schleife 
uriauttelbar hinter BEGIN zuriickgekehrt wird. Es werden in diesem 
- = also auch die "anweisungen a" erneut ausgefiihrt. Ist aber 
Flag, das durch WHILE getestet wird falsch, dann wird die 
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Schleife verlassen, und die "anweisungen b" gelangen nicht zur 
Ausfiihrung. Vielmehr werden die Befehle ausgefiihrt, die sich an 
das Wort REPEAT anschlieBen. Diese Arbeitsweise sorgt dafiir, daB 
die mit BEG IN -WHILE -REPEAT gebildete Schleife so lange ausgefiihrt 
wird , solange eine Bedingung wahr ist; auBerdem kann diese Bedin- 
gung an beliebiger Stelle innerhalb der Schleife deren Verlassen 
erzwingen. Andererseits wird eine BEGIN-UNTIL-Schleif e so lange 
ausgefiihrt, solange eine Bedingung falsch ist, und diese Schleife 
kann nur am Ende verlassen werden. 

Als Beispiel wollen wir das Wort zur Berechnung der Fakultat 
einer Zahl (vergleiche Abschnitt 4-3) neu definieren. Diese Al- 
ternative zu unserer bereits bekannten Definition sehen Sie in 
Abb. 4-9. 


0 ( Alternative Fakultatsdef ini tion ) 

1 : FACT DUP BEGIN 1- DUP 1- 0> WHILE 

2 DUP ROT * SWAP REPEAT 

3 SWAP . DROP ; 

4 

5 

6 

7 

8 
9 

1 0 
1 2 
1 3 

14 

15 


ABBILDUNG 4-9: Alternative Definition der Fakultat 


Wie bereits zuvor (4-15) geben wir unserem Wort den Namen FACT. 
Nun zu den Einzelheiten dieser Definition: Bei Aufruf von FACT 
sollte sich eine Zahl auf dem Stack befinden, deren Fakultat 
berechnet werden soil. Diese Zahl wird zuerst in Zeile 1 dupli- 
ziert, ehe wir in die Schleife eintreten. Innerhalb der Schleife 
wird die Zahl als erstes dekrementiert , wir ziehen mittels 1- 1 
von der Zahl ab . Das Wort DUP dupliziert diese dekrementierte 
Zahl, wonach wir sie mit 1- erneut dekrementieren . Das Ergebnis 
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dieses "Zuriickzahlens" testen wir nun mit 0>. Dieses Wort legt 
bekanntermaBen ein wahres Flag auf den Stack, wenn dessen ober- 
ster Eintrag groBer Null war. WHILE entfernt dieses Flag; falls 
es wahr ist, geschieht nichts weiter. FORTH fahrt einfach mit der 
Schleife fort und fiihrt das DUP aus . Der Stack enthalt nun die 
Originalzahl , welche wir n nennen wollen und dariiber zweimal 
diese Originalzahl urn 1 vermindert. Mit ROT wird die Originalzahl 
an oberste Stack-Position gebracht. Jetzt berechnet das FORTH- 
Wort * das Produkt n*(n-1) und legt es auf den Stack. Nach dem 
SWAP befindet sich n-1 an oberster Stack-Position und n*(n-1) an 
zweiter Stelle. Danach erfolgt ein Wiedereintritt in die Schlei- 
fe. Der oberste Stack-Eintrag wird um 1 vermindert. Nach dem 
zweiten Durchgang durch die Schleife haben wir somit n*(n-1)*(n- 
2) berechnet. In dieser Art geht das Programm weiter, bis der 
zweite 1 — Befehl in Zeile 1 die Zahl auf 0 reduziert. In diesem 
Fall ist das Flag falsch. StoBt aber WHILE auf ein falsches Flag, 
dann iibergeht es den Rest der Schleife, also die Anweisungen zwi- 
schen WHILE und REPEAT. Die Schleife wird beendet. Mit SWAP in 
Zeile 3 kommt die gewiinschte Fakultat an die oberste Stack- 
Position und wird anschlieBend durch den Punktbefehl ausgegeben. 
Ehe wir die Definition des Wortes beenden , bereinigen wir noch 
mit DROP den Stack. 

Bedingte Schleifen horen nur dann mit der Arbeit auf, wenn eine 
bestimmte Bedingung erfullt ist. Wenn sich in Ihrem Programm ein 
Fehler befindet, dann kann es sein, daB diese Bedingung nie ein- 
tritt und eine Endlosschleife zustande kommt. Wenn beim Austesten 
ernes selbstdef inierten Wortes der Computer "einzuschlafen" 
scheint, dann kann durchaus eine solche Endlosschleife dafur 
verantwortlich sein. Uberprvifen Sie Ihre Prograrme also sorgfal- 
tig , um es nicht soweit kommen zu lassen. 


4.7 Einige zusatzliche Vergleichsworter 


FORTH stellt noch einige weitere Vergleichsworte zur Verfiigung, 
die wir in diesem Abschnitt erortern wollen. Da wir die grundle- 
gende Funktionsweise von Vergleichswortern bereits kennengelernt 
naben, werden wir die neuen Worter nur kurz vorstellen. 
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?DUP - Dieses Kommando dupliziert die oberste Zahl auf dem Stack, 
vorausgesetzt , diese ist ungleich 0. 1st der oberste Stack-Ein- 
trag aber gleich 0, dann macht ?DUP nichts. 


ABORT - Das FORTH -Kommando ABORT bereinigt sowohl den Datenstack 
als auch den Return-Stack, beendet das Programm und ubergibt die 
Kontrolle an das Terminal. Man kann damit also sowohl den Stack 
bereinigen als auch ein Programm beenden. Einige FORTH-Sys teme 
verwenden fur diesen Zweck ein etwas anderes Kommando, namlich 
ABORT". Man benutzt es in der Form 


ABORT" text " (4-25) 


Die Funktionsweise von ABORT" ist ahnlich wie die von ABORT, 
auBer daB dieses Wort aufgrund eines Flags in Aktion tritt. Wenn 
das Flag an oberster Stack-Position wahr ist, dann loscht ABORT" 
ebenfalls die beiden Stacks und beendet das Programm, druckt aber 
zusatzlich noch das Textmaterial zwischen den Anf uhrungszeichen 
auf dem Terminal aus . Man kann mit ABORT" also die Programmaus- 
fuhrung abbrechen , urn irgendwelche ungewunschten Effekte zu ver- 
hindern. Ist das Flag falsch, dann beseitigt ABORT" einfach das 
Flag und hat ansonsten keine Wirkung. 

Wir wollen ein kleines Beispiel fur den Einsatz von ABORT" geben. 
Stellen Sie sich vor , daB Sie eine Schleife geschrieben haben, 
deren Schleifeninkrement entweder im Programm berechnet Oder vom 
Benutzer eingegeben wird. Ergibt sich nun (entweder durch Berech- 
nung Oder durch Benutzereingabe) ein Inkrement von 0, so wiirde 
dies zu einer der gefurchteten Endlosschleifen filhren. Sie konnen 
diesen Fall aber mit ABORT" abfangen. Betrachten Sie dazu den 
folgenden Ausschnitt aus einem FORTH-Wort: 

DUP 0= ABORT" PROGRAMM BEENDET " +LOOP 

Der oberste Stack-Eintrag wird dupliziert und anschlieBend mit 0 = 
verglichen. Wir haben jetzt ein Flag auf dem Stack stehen, das 
von ABORT" beseitigt wird. Falls es falsch ist, dann hat ABORT" 
keine Wirkung. Ist das Flag andererseits wahr, dann wird das Pro- 
gramm beendet, und wir erhalten die Meldung PROGRAMM BEENDET auf 
dem Bildschirm. 
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Y/N - Dieses Wort ist kein Teil von FORTH-79, ist jedoch in MMS- 
FORTH implementiert und wird deshalb hier dargestellt. Bei Aus- 
fiihrung von Y/N unterbricht das Programm seine Arbeit und bringt 
die Meldung (Y/N)? auf den Bildschirm. Der Benutzer mufi nun ent- 
weder mit Y (fur englisch "yes" = ja) oder N (fur "nein") antwor- 
ten. Um diese Antworten in den Computer einzugeben , braucht die 
RETURN-Taste nicht betatigt zu werden. Nach Eingabe eines dieser 
beiden Zeichen wird ein Flag auf den Stack gelegt. Dieses ist 
falsch, wenn der Benutzer die Y-Taste betatigt hat und bei Einga- 
be von N wahr. Das Wort verhalt sich somit genau anders herum, 
als man es erwarten wiirde; gehen Sie deshalb damit vorsichtig um! 
Seine Stack-Relation ist: 


-> 


n 

flag 


(4-26) 


Sie konnen also mit Y/N dem Benutzer Entscheidungsfragen (Ja- 
S'ein-Fragen) stellen. 

lie Abbildung 4-10 liefert ein Beispiel fur den Einsatz von Y/N. 
«*ir definieren darin ein Wort mit dem Namen PTZ2 . Dieses Programm 
iruckt die erste Potenz von 2 (also die 2) und fragt dann den 
Benutzer, ob es weitermachen soil. Antwortet dieser mit Y, dann 
•ird die nachste Zweier-Potenz (4) gedruckt. Das Programm macht 
i-amit so lange weiter, bis der Benutzer auf das Fragezeichen des 
Brogramms mit einem N antwortet. Sehen wir uns Abb. 4-10 an. Die 
Iweierpotenzen werden in einer BEGIN-UNTIL-Schleife berechnet und 
ausgegeben. Vor dem UNTIL erfolgt jedoch ein Aufruf von Y/N. Ant- 
•crten wir jetzt mit Y, dann wird ein Flag mit dem Wahrhei tswert 
falsch auf den Stack gelegt und somit die Schleife erneut durch- 
laufen. Reagiert der Benutzer auf die Nachfrage des Systems mit 
S, dann findet UNTIL ein wahres Flag auf dem Stack vor und bricht 
fie Schleife ab. 


0 ( EIN BEISPIEL FuR Y/N ) 

1 : PTZ2 1 BEGIN 2 * DUP CR 

2 " WOLLEN SIE WEITERMACHEN " CR 

3 Y/N CR UNTIL ; 

4 


ABBILDUNG 4-10: Programm, das vom Benutzer abgebrochen wird 
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NOT - Das FORTH-Kommando NOT entfernt den obersten Stack-Eintrag 
und betrachtet ihn als Flag. 1st das Flag wahr, dann legt es ein 
falsches Flag auf den Stack. 1st das Ausgangsflag aber falsch, 
dann wird ein wahres Flag auf den Stack gelegt. Die Stack-Rela- 
tion von NOT lautet 


n f lagl “ _> n flag2 


(4-27) 


Wenn wir etwa dem Y/N-Befehl das Wort NOT folgen lassen, dann ha- 
ben wir als Ergebnis ein wahres Flag, wenn der Benutzer Y einge- 
geben hat. Bei Eingabe von N ist das Flag hingegen falsch. 


4.8 Verzweigung mittels CASE 


In diesem Abschnitt werden Sie ein weiteres Verfahren kennenler- 
nen, mit dem man Verzweigungen in FORTH-Programmen erreichen 
kann. Hierbei handelt es sich urn keine in FORTH-79 vorgesehene 
Moglichkeit, sie ist jedoch in MMSFORTH implementiert . Es ware 
sehr komfortabel, wenn man in einem Programm zu verschiedenen 
FORTH-Wortern verzweigen konnte. Wir konnten z.B. wiinschen, unter 
einer Bedingung ein FORTH-Wort auszufiihren, wahrend unter einer 
anderen Bedingung ein anderes zur Ausfuhrung gelangen soil. Die- 
sen Fall nennt man Verzweigung durch Auswahl . Diese Verzweigungs- 
moglichkeit wird durch das FORTH-Wort NCASE zur Verfugung ge- 
stellt. Programme mit NCASE haben folgende allgemeine Form: 


NCASE n i n 2 n 3 M WORTA WORTB WORTC 
OTHERWISE anweisungen q CASEND anweisungen x (4-28) 


Hierbei stellen n^ , n 2 und n^ eine Liste von Integers zwischen 
-128 und 127 dar. An diese schlieBt sich ein e inzelnes " sowie 
eine Liste von FORTH-Wortern an. Im Beispiel (4-28) haben wir 
drei Zahlen und drei FORTH-Worter , es konnen aber genausogut mehr 
Zahlen und Worter bzw. weniger Zahlen und Worter sein. Die Anzahl 
der Zahlen vor und der Worter nach dem Anf iihrungszeichen muB 
jedoch gleich sein. An die Liste der FORTH-Worter schlieBt sich 
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das Schliisselwort OTHERWISE an. Dahinter konnen beliebige FORTH- 
Ausdriicke stehen. AnschlieBend geben Sie das Wort CASEND ein. 

Der ganze Ausdruck funktioniert f olgendermaBen : Die Zahlenliste 

korrespondiert mit der Liste von FORTH-Wortern . Bei Ausfiihrung 
von NCASE wird die oberste Zahl vom Stack entfernt. Falls Sie 
gleich ist , dann wird "WORTA" ausgefiihrt. 1st die Zahl gleich 
dann kommt "WORTB" an die Reihe. Nur eines der Worter aus 
der Liste kommt zur Ausfiihrung; die "anweisungen q" werden nicht 
ausgefiihrt. Als nachstes werden - falls vorhanden - die "anwei- 
sungen x" hinter dem CASEND ausgefiihrt. Entspricht die Zahl, die 
vor Ausfiihrung von NCASE auf dem Stack war, keiner der Zahlen der 
Liste, dann wird auch keines der Worter in der Liste hinter dem " 
aufgerufen. Statt dessen werden die "anweisungen q" abgearbei tet . 
Danach schlieBen sich die "anweisungen x" hinter dem CASEND an. 
NCASE besitzt folgende Stack-Relation: 


n — > 


(4-29) 


In Abbildung 4-1 1 sehen Sie ein Beispiel fiir den Einsatz von 
NCASE. Hierbei handelt es sich um ein Programm, das die zweite 
und dritte Zahl auf dem Stack miteinander addiert, subtrahiert 
Oder multipliziert . Welche dieser drei Operationen ausgefiihrt 
wird, bestimmt die erste Zahl auf dem Stack. 1st der oberste 
Stack-Eintrag gleich 1 , dann wird addiert; handelt es sich dabei 
um eine 4, dann wird subtrahiert. Xhnlich sorgt eine 7 fur Multi- 
plikation. (in der Zahlenliste innerhalb von NCASE miissen die 
Zahlen nicht in numerischer Reihenfolge stehen. Die erste Zahl 
der Zahlenliste entspricht dem ersten Wort in der Worterliste, 
die zweite Zahl in der Zahlenliste entspricht dem zweiten Wort in 
der Worterliste usw.) 

Betrachten wir nun das Programm. In den ersten drei Zeilen defi- 
nieren wir die neuen Worter ADDIERE, SUBTRAHIERE und MULTIPLI- 
ZIERE, die jeweils 2 Zahlen vom Stack entfernen, die angegebene 
Operation ausfiihren und deren Ergebnis auf den Bildschirm brin- 
gen. In Zeile 4 beginnen wir die Definition von AUSNAHL. Bei 
Ausfiihrung von NCASE wird die oberste Zahl vom Stack entfernt. 
Handelt es sich um eine 1, dann wird das Wort ADDIERE aufgerufen, 
worauf sich die Anweisungen hinter CASEND anschlieBen. Wurde eine 
7 vom Stack entfernt, dann wird statt dessen das Wort MULTIPLI- 
ZIERE ausgefiihrt. 1st die auf dem Stack befindliche Zahl jedoch 


153 


4 Programmsteuerung - Strukturiertes Programmieren 


weder eine 1 noch eine 4 Oder 7, dann gelangt kernes der Worter 
zwischen dem Anfuhrungszeichen und OTHERWISE zur Ausfuhrung; 
statt dessen werden in diesem Fall die Anweisungen zwischen 
OTHERWISE und CASEND bearbeitet. Das bedeutet , daB wir die Mel- 
dung "FALSCHE AUSWAHL" geben . Die Befehle, die hinter CASEND ste- 
hen , gelangen also auf jeden Fall zur Ausfuhrung. Das bedeutet, 
daB das Programm stets mit der Meldung "PROGRAMM BEENDET" auf- 
hort . 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
12 

13 

14 

15 


( EIN BEISPIEL FuR CASE 
: ADDIERE + . ? 

: SUBTRAHIERE 
: MULTIPLIZIERE * 

: AUSWAHL NCASE 
OTHERWISE 


4 7 


ADDIERE SUBTRAHIERE MULTIPLIZIERE 


FALSCHE AUSWAHL 


CASEND 


PROGRAMM BEENDET 


ABBILDUNG 4-11: Ein Beispiel fur den Einsatz von NCASE 


4.9 Strukturierte Programmierung 


Ein Programm ist dann strukturi ert , wenn €& ft ? 

(sog. Moduln) gegliedert ist, die leicht zu verstehen und zu ver- 
bessern sind. FORTH bietet sich fur die strukturierte Program- 
mierung geradezu an, denn die meisten Programme werden fast auto- 
matisch in kleine selbstandige Untereinhei ten - die oben erwahn- 
ten Module - aufgeteilt. In diesem Abschnitt stellen wir genauer 
dar, wie man strukturierte Programme schreibt. 
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4.9.1 Modularisierung 


Ein FORTH- Programm besteht in der Regel aus einer Vielzahl von 
Kommandos . So haben wir beispielsweise in der Abbildung 4-7 in- 
nerhalb des selbstdef inierten Wortes PYTHTRIP, welches das Haupt- 
programm ist, einen Aufruf der selbstdef inierten Worter SQUARE 
und PT. Wenn es sich um ein sehr kompliziertes Programm handeln 
wurde, dann konnte das Hauptprogramm eine Vielzahl anderer 
selbstdef inierter Worter aufrufen. Diese aber konnen ihrerseits 
wieder andere Worter rufen. Im allgemeinen soil ten Sie versuchen, 
Ihre Programme so kurz wie moglich zu halten. Als Faustregel fur 
die Lange von Programmen gilt, dafi sie keinesfalls die GroBe 
eines Bildschirms ilberschreiten sollten. Auf diese Art halten Sie 
]edes Wort moglichst einfach, so daB Sie es leicht testen und 
fehlerfrei machen konnen. Kompliziertere Programme werden dann 
mit Hilfe bereits entwickelter und getesteter Worter aufgebaut. 
Dieses Verfahren macht auch die Programmierung im Team moglich; 
verschiedene Programmierer konnen so an unterschiedlichen Worten 
arbeiten. Natiirlich konnen Sie mit der Arbeit an einfachen Worten 
so lange nicht beginnen, solange nicht die gesamte Struktur des 
Programms festgelegt ist. Dieses muB der erste Arbei tsschritt 
sein . 


4.9.2 Algor i thine n - Programnentwicklung 


Wenn Sie ein Programm schreiben - egal , ob einfach oder kompli- 
ziert - dann miissen Sie sich dafiir einen allgemeinen Plan zu- 
rechtlegen. Dieser Plan, der die allgemeine Vorgehensweise be- 
schreibt, wird auch als Algorithmus bezeichnet. Ehe Sie sich an 
die tatsachliche Programmierarbeit machen, mussen Sie sich also 
uber den zu verwendenden Algorithmus klar werden. Falls das Pro- 
gramm einfach ist, dann mag es erscheinen, als ob dieser erste 
Schritt iibergangen und das Programm gleich geschrieben werden 
konnte. In diesen Fallen hat der Programmierer den Algorithmus 
bereits im Kopf. Bei komplizierteren Programmen ist dieses Ver- 
fahren unmoglich. Es sollte dann auf jeden Fall erst einmal eine 
" Ideensammlung" angelegt werden, die als Grundlage fur die Ver- 
feinerung des Algorithmus dienen kann. Erinnern wir uns an das 
Problem mit dem pythagoreischen Zahlentripel . Die erste Idee, die 
ein Programmierer zu diesem Problem haben konnte, besteht darin, 
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drei Schleifen ineinander zu schachteln. Die^ keide;} auBeren 

Schleifen sollen der Reihe nach alle Werte fur a ^ generie- 

ren, wahrend die innere Schleife die Werte fur c berechnet und 

2 2 

diese mit der Summe von a und b vergleicht. Wenn die beiden 
GroBen gleich sind, dann haben wir ein pythagoreisches Zahlentri- 
pel gefunden. Dies ist auch die grundlegende Idee, nach der das 
Beispiel 4-7 konstruiert ist. Natiirlich ist der Algorithmus jetzt 
noch nicht vollstandig. Es gibt noch eine Menge von Details, die 
festgelegt werden miissen. Auch bei einem sehr komplizierten Pro- 
gramm wiirde man ahnlich vorgehen: zuerst skizziert man das allge- 
meine Verfahren. Letztendlich wird dieses allgemeine Verfahren 
dann in Form eines FORTH-Wortes implementiert . In diesem Wort 
kann es eine Vielzahl von Unterworten geben. Solange wir uns noch 
am Anfang der Programmentwicklung befinden, legen wir nur fest, 
was diese Unterworte leisten sollen, belasten uns aber noch nicht 
mit der Frage , wie dies erreicht werden kann. Erst nachdem wir 
das Hauptwort geschrieben und fehlerfrei gemacht haben, wenden 
wir uns den einzelnen Unterworten zu und wiederholen dabei dieses 
Vorgehen. Wir entwickeln also fur jedes Unterwort einen eigenen 
Algorithmus, welcher auch auf weitere Unterworter zuriickgreif en 
kann. Wir entwickeln und testen erst einmal diesen Algorithmus, 
ehe wir uns den Unterworten der nachsten Ebene zuwenden. 

Diesen Sachverhalt kann man in einem hierarchischen Diagramm 
darstellen. Ein Beispiel dafur sehen Sie in Abbildung 4-12. In 
dieser Abbildung ruft das oberste FORTH-Wort zwei weitere Unter- 
worte, a und c. Diese Unterworter rufen ihrerseits die Unter- 
worter b, d und e. Dabei greifen sowohl Unterwort a als auch Un- 
terwort c auf Unterwort d zu. Erst wenn die Beziehung der einzel- 
nen Worter zueinander klar ist und wir uns vergewissert haben, 
daB unser Algorithmus fehlerfrei ist, sollten wir anfangen, die 
Worter tatsachlich in FORTH zu implementieren . 

Die eben geschilderte Vorgehensweise nennt man Programmentwick- 
lung von oben nach unten (Top-down design). Sie erscheint dem 
Anfanger oftmals paradox. Man beginnt mit dem hierarchischen 
Diagramm, aus dem man das oberste Wort zur Programmierung aus- 
wahlt. Dies wird getestet, wobei jedoch noch keines seiner Unter- 
worter bereits definiert ist. Damit das Hauptwort trotzdem ausge- 
testet werden kann, versehen wir die benotigten Unterworter mit 
Hilf sdef initionen , sog. Programmrumpf en . Diese Riimpfe fuhren 
keine tatsachlichen Berechnungen aus; sie ubergeben jedoch gege- 
benenfalls Testdaten an das Hauptprogramm , damit dieses richtig 
funktionieren kann. 
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I 1 1 

I Unterwort I 
I e I 

I I 

ABBILDUNG 4-12: Ein einf aches hierarchisches Diagramm 


Nachdem wir das Hauptprogramm iiberpriift und uns vergewissert 
haben, dafi es richtig funktioniert , arbeiten wir der Reihe nach 
die einzelnen Unterworter aus, indem wir deren Programmrumpf e 
durch tatsachliche Definitionen ersetzen. Bei der Entwicklung ei- 
res Unterwortes gehen wir wieder nach der Top-down-Methode vor. 
.'erwendet ein Unterwort seinerseits weitere Unterworter, so 
schreiben wir fur diese Unterworter nur Behelf sdef ini tionen (Pro- 
grammriimpfe) , urn uns ganz der Losung des gerade betrachteten Pro- 
blems (des Unterwortes der ersten Ebene) widmen zu konnen. Noch 
einmal zu Abbildung 4-12. Als erstes entwickeln wir das Haupt- 
-crt, wobei wir fur die Unterworter a und c nur Programmrumpf e 
.erwenden. Als nachstes entwickeln und testen wir Unterwort a, 
•zoei wir Hilf sdef initionen fur die Unterworter b und d verwen- 
;en. Nachdem Unterwort a ausgetestet ist, wenden wir uns dem 
Interwort b zu. In dieser Art, also von oben nach unten durch das 
nierarchische Diagramm gehend, wird jedes einzelne Modul des kom- 
tlexen Programms entwickelt und getestet. Das Verfahren erscheint 
Ihnen jetzt vielleicht umstandlich; beim Entwickeln groSerer 
Programme ist es jedoch eine groBe Hilf estellung . 
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4.10 Ubungsauf gaben 


In den folgenden Ubungsauf gaben sollen Sie selbst FORTH-Worter 
definieren bzw. FORTH-Prograirune schreiben. Uberpriifen Sie Ihre 
Losungen selbst, indem Sie sie auf Ihrem Computer austesten. 
Halten Sie die einzelnen FORTH-Worter so kurz wie moglich und 
versuchen Sie, komplizierte Aufgaben zu losen , indem Sie eine 
Reihe von Unterwortern aus einem Hauptwort heraus aufrufen. 


4-1 Was bedeutet der Ausdruck "Flag"? 

4-2 Schreiben Sie ein FORTH-Wort , das zwei Zahlen subtrahiert 
und deren Differenz ausgibt, falls sie ungleich sind, anson- 
sten aber die Meldung DIE ZAHLEN SIND GLEICH auf den Bild- 
schirm bringt. 

4-3 Schreiben Sie ein FORTH-Wort, das die kleinste von drei Zah- 
len auf dem Stack ausgibt. Verwenden Sie dazu die Ver- 

gleichsworter aus Abschnitt 4-1 . 

4-4 Wiederholen Sie Aufgabe 4-3, geben Sie diesmal aber die 

groBte von drei Zahlen auf dem Stack aus. 

4-5 Wiederholen Sie Aufgabe 4-4, geben Sie diesmal aber den 

groBten Absolutwert aus. 

4-6 Was bedeutet der Ausdruck "bedingte Verzweigung" ? 

4-7 Schreiben Sie ein FORTH-Wort, das 3 Zahlen addiert und sie 
mit 4 mul tipliziert , wenn ihre Summe kleiner 50 ist. Wenn 
die Summe zwischen 50 und 70 liegt, dann sollen die Zahlen 
mit 6 multipliziert werden , ist die Summe groBer als 70, 
dann multiplizieren Sie sie mit 8. 

4-8 Schreiben Sie ein FORTH-Wort, das die folgende Polynomial- 
Gleichung fur verschiedene Werte von x berechnet: 

4x^ + gx^ + 5x + 3 

dabei soil gelten g = 4, falls x kleiner gleich 15 ist, und 
g = 9 fiir x groBer 15. 
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4-9 Schreiben Sie ein FORTH-Wort, das die Summe aller Zahlen 
berechnet, die zwischen zwei Integers liegen. Das Wort 
liest also zwei Eintrage vom Stack, die den unteren und obe- 
ren Grenzwert fur die Zahlenreihe angeben , und liefert die 
Summe der Zahlen innerhalb dieser Grenzen, Gehen Sie davon 
aus, daB der kleinere Grenzwert der oberste Stack-Eintrag 
ist . 

4-10 Schreiben Sie ein FORTH-Wort zur Berechnung des Polynoms 
x 3 - 2x 2 + 2x - 1 5 

fur alle Werte von x zwischen 1 und 20. 

4-11 Schreiben Sie ein FORTH-Kommando , das die folgende Funktion 
fur alle Werte von x zwischen -2 und 5 und fur alle Werte 
von y zwischen -6 und 4 berechnet: 

3xy 3 - 2x 2 + 5xy - 3x - 5y + 18 

4-12 Wiederholen Sie Aufgabe 4-9, verlassen Sie diesmal aber das 
Wort mittels LEAVE, wenn die Summe groBer als 10000 wird. 

4-13 Schreiben Sie ein FORTH-Wort, das das Produkt aller ungera- 
den Zahlen zwischen 1 und einer ungeraden Zahl an oberster 
Stack-Position berechnet. Das Programm sollte abbrechen , 
wenn das Produkt groBer 20000 wird. In diesem Fall sollten 
Sie eine passende Fehlermeldung ausgeben. 

4-14 Wiederholen Sie Aufgabe 4-12, und verwenden Sie dabei die 
FORTH-Worter BEGIN-UNTIL. 

4-15 Wiederholen Sie Aufgabe 4-13, und verwenden Sie dabei die 
FORTH-Worter BEG IN -WHILE -REPEAT. 

4-16 Die Teilnehmer eines Kurses mussen jeweils 4 Priifungen able- 
gen. Schreiben Sie ein modular isiertes FORTH-Wort (also ei- 
nes, das seinerseits selbstdef inierte FORTH-Worter ruft), 
welches folgende Berechnungen ausfuhrt: Die Punktzahl in je- 
der der vier Priifungen wird auf den Stack gelegt. Dann soil 
das Programm den Durchschnitt des einzelnen Studenten aus 
diesen vier Tests berechnen und in Abhangigkeit davon eine 
Bewertung ausgeben. Bei einem Durchschnitt von 90 oder bes- 
ser erhalt der Student die Bewertung A. Liegt der Schnitt 
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zwischen 89 und 80, so wird die Bewertung B vergeben. Mit 
einem Schnitt zwischen 79 und 70 erzielt man C, zwischen 69 
und 60 D. 1st schlieBlich der Durchschnitt des Studenten 
schlech ter als 59, dann geben Sie die Meldung DURCHGEFALLEN 
aus. Der berechnete Durchschnitt muB ganzzahlig sein. Wenn 
Sie die Division ausfuhren, sollten Sie den Quotienten urn 1 
erhohen, falls der Divisionsres t 2 oder mehr betragt. 

4-17 Diskutieren Sie die Einsatzmoglichkei ten fur das FORTH-Wort 

ABORT. 

4-18 Vergleichen Sie die beiden FORTH-Worter ABORT und ABORT". 

4-19 Wiederholen Sie Aufgabe 4-16, wobei diesmal das Programm 
nach beendeter Arbeit den Benutzer fragen soil, ob ein 
erneuter Durchgang gewunscht wird. Andern Sie auch die Form 
der Dateneingabe . Das Programm soil seine Daten nicht auf 
dem Stack erwarten , sondern sie selbst vom Benutzer abfra- 
gen. 

4-20 Wiederholen Sie Aufgabe 4-19, und verwenden Sie diesmal das 
FORTH-Wort NOT. 

4-21 Schreiben Sie ein FORTH-Wort, das mit Hilfe anderer selbst- 
definierter FORTH-Worter fur jeden Wochentag eine andere 
Meldung ausgibt. (Denken Sie sich diese Meldungen selbst 
aus . ) 

4-22 Was bedeutet der Ausdruck " strukturierte Programmierung"? 

4-23 Was bedeutet der Ausdruck "Programmentwicklung von oben nach 
unten" (Top-down design)? 

4-24 Wiederholen Sie die Aufgabe 4-19, wobei Sie diesmal darauf 
achten, bei der Programmentwicklung von oben nach unten 
vorzugehen. 
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5 Grundlegendes uber Zahlen 


Im uberwiegenden Teil dieses Buches haben wir mit einfach genauen 
ganzen Zahlen (Integers) gearbeitet. Dieses Kapitel stellt das 
Arbeiten mit doppelt genauen Integers dar. Dabei konnen wir mit 
wesentlich groBeren Zahlenbetragen rechnen. Dies ist jedoch nicht 
der einzige Grund fur die Einfuhrung der doppelt genauen Inte- 
gers. Wir werden namlich in diesem Kapitel ein Verfahren, die 
sog. Skalierung kennenlernen, das es uns erlaubt, Integerarithme- 
tik dort einzusetzen, wo normalerweise mit Bruchzahlen gerechnet 
wird. Weiterhm werden wir noch andere Formen der Integerari thme- 
tik kennenlernen. 

Manchmal miissen wir mit sehr groBen oder sehr kleinen Zahlen 
arbeiten. In diesen Fallen ist oftmals selbst die Arithmetik mit 
doppelt genauen Zahlen nicht ausreichend, und wir benotigen sog. 
Gleitkommazahlen . Diesen Zahlen typ werden wir im vorliegenden Ka- 
pitel vorstellen. Gleitkommaari thmetik ist zwar kein Bestandteil 
von FORTH-79 , findet sich jedoch in vielen anderen FORTH-Systemen 
und ist deshalb Gegenstand dieses Kapitels. Zwar benotigt die 
Gieitkommaarithmetik mehr Rechenzeit und Speicherplatz als die 
Arithmetik mit Integers, seien sie einfach oder doppelt genau, 
doch oftmals ist sie ganz praktisch. Wir werden deshalb in diesem 
Kapitel verschiedene Formen des Rechnens mit Gleitkommazahlen 
darstellen . 


5.1 Doppelt genaue Integers 


Einfach genaue Integers beanspruchen eine Stack-Position. Wie wir 
c-ereits ausgefuhrt haben, kann man mit diesem Datentyp Zahlen 
zvischen -32678 und 32767 darstellen. Weil doppelt genaue Inte- 
gers in zwei Stack-Positionen gespeichert werden, sind damit 
Zahlen zwischen -2147483648 und 2147483648 moglich. Im Abschnitt 
Z-5 haben wir bereits einige Details der Stack-Manipulation im 
lusammenhang mit doppelt genauen Integers dargestellt. Jetzt wen- 
den wir uns den Einzelheiten des Rechnens mit diesen Zahlen zu. 
w .ar. sollte doppelt genaue Zahlen nur dann verwenden , wenn ihr 
grcBer Wertevorrat unbedingt benotigt wird. Sie brauchen namlich 
dec pelt soviel Speicherplatz wie einfach genaue Zahlen? auch 
dauern Berechnungen mit diesen Zahlen langer. Weiterhin kann die 
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Fahigkeit zum Rechnen mit doppelt genauen Zahlen nicht schon vom 
Hersteller in Ihr FORTH-System eingebaut sein. Gegebenenf alls 
mussen Sie einige zusatzliche Blocke in den Speicher laden, ehe 
Sie mit diesem Zahlentyp arbeiten konnen. In vielen FORTH-Imple- 
mentationen gibt es zu den meisten arithmetischen Befehlen fur 
einfach genaue Integers ein Gegenstiick fur doppelt genaue Zahlen. 
Diese wollen wir im vorliegenden Abschnitt besprechen. Da die 
meisten Details der Arbeitsweise fur beide Operations typen gleich 
sind, werden wir nicht allzu detailliert darauf eingehen. 

D+ - Dies ist das Addi tionswort fur doppelt genaue Integers; D+ 
entfernt zwei doppelt genaue Integers vom Stack und legt dort 
ihre Summe (als doppelt genaue Integer) ab. Die Summanden , mit 
denen D+ arbeitet, benotigen also vier Stack-Positionen . Leider 
gibt es keine Moglichkeit f estzus tellen , ob die Zahlen auf dem 
Stack einfach Oder doppelt genau sind. Wenn Sie also vier einfach 
genaue Zahlen auf den Stack pushen und anschlieBend I>+ ausfuhren, 
dann werden die beiden obersten Stack-Positionen so behandelt, 
als handle es sich dabei urn eine doppelt genaue Integer. Ebenso 
geht es mit dem dritten und vierten Stack-Eintrag. Obwohl sich 
also vier einfache genaue Integers auf dem Stack befinden, wird 
FORTH die doppelt genaue Addition mit ihnen ausfuhren, was natiir- 
lich das Ergebnis verfalscht. Die Stack-Relation fur D+ lautet: 


d 2 - 


> d 


sum 


(5-1 ) 


BekanntermaBen stellen wir mit d eine doppelt genaue Zahl dar , 
wahrend n zur Darstellung von einfach genauen Integers dient. 
Anders gesagt: d steht fur zwei Stack-Positionen, wahrend n eine 
Stack-Position reprasentiert . 


5.1.1 Ein- und Ausgabe von doppelt genauen Integers 


Damit wir mit doppelt genauen Integers rechnen konnen, mussen wir 
sie irgendwie auf den Stack bringen. Gliicklicherweise macht FORTH 
dies automatisch , wenn wir ihm anzeigen, daB es sich bei den 
Zahlen urn doppelt genaue handelt. Dazu mussen wir nur irgendwo in 
der Zahl einen Dezimalpunkt mit aufnehmen. Wir konnten z.B. 34.56 
schreiben. Dies behandelt FORTH als die doppelt genaue Integer 
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3456. Storen Sie sich nicht an dem Dezimalpunkt : Er dient nicht 
zur Kennzeichnung von Nachkommastellen, sondern stellt lediglich 
ein Signal fur den FORTH- Interpreter dar. Genausogut hatten wir 
3.456, 3456., 345.6 usw. schreiben konnen, denn all diese Dar- 
stellungen sind gleichwertig und bewirken, daB dieselbe Zahl (die 
doppelt genaue Integer 3456) auf den Stack gelegt wird. tiber den 
Umgang mit Nachkommastellen (der sog. Gleitkommaari thmet ik) wer- 
den wir im nachsten Abschnitt noch einiges erfahren. Im Kapitel 
3-3 haben wir bereits erortert, wie doppelt genaue Zahlen gespei- 
chert werden. Erinnern Sie sich daran , daB die hochstwertigen 
Bits einer doppelt genauen Integer weiter oben im Stack abgelegt 
werden, so daB man eine positive einfach genaue Integer an ober- 
ster Stack-Position ganz einfach in eine doppelt genaue Zahl 
verwandeln kann , indem man eine 0 auf den Stack pusht (vgl. Ab- 
schnitt 3-3). Wenn wir also die Zahl 35 als doppelt genaue Inte- 
ger speichern wollen, dann sind folgende Eingaben vollig gleich- 
wertig: 


35. (RETURN) (5-2a) 

35 0 (RETURN) (5-2b) 


Dieses Thema wird ausfiihrlicher in Abschnitt 3-3 behandelt. 

D. - Das FORTH-Wort D. entfernt die oberste doppelt genaue Inte- 
ger vom Stack und gibt sie aus. D. funktioniert also genauso fur 
doppelt genaue Integers, wie es das Punktkommando fur einfach 
genaue Integers tut. Seine Stack-Relation: 


d — > 


(5-3) 


Als Beispiel wollen wir ein FORTH-Wort schreiben, das die beiden 
obersten doppelt genauen Zahlen vom Stack entfernt und ihre Summe 
ausgibt : 


: DOPPADD D+ D. 


(5-4) 


Wie Sie sehen konnen, greifen wir hier im wesentlichen auf die- 
selben Ideen wie bei der einfach genauen Arithmetik zuriick . 
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D- - Das FORTH-Wort D- entfernt die beiden obersten doppelt ge- 
nauen Integers vom Stack und legt dort ihre Differenz ab. Der 
oberste Stack-Eintrag wird dabei vom zweiten subtrahiert. Das Er- 
gebnis ist ebenfalls doppelt genau. Wir haben folgende Stack- 
Relation: 


d, dr 


--> d 


dif f 


(8-5) 


Dabei ergibt sich als Ergebnis von d^ minus . Wieder 

sehen wir, daB D- 1 m wesentlichen genauso funktioniert wie 
auBer daB jetzt doppelt genaue Zahlen benutzt werden. 


5.1.2 Multiplikation und Division 


Die FORTH-Kommandos zur Multiplikation und Division von doppelt 
genauen Integers sind kein Bestandteil von FORTH-79. Sie sind je- 
doch im MMSFORTH und anderen FORTH-Systemen implementiert . Auch 
diese Worter entsprechen ihren einfach genauen Gegenstiicken . So 
entfernt z.B. D* die beiden obersten doppelt genauen Integers vom 
Stack und ersetzt sie durch ihr Produkt. Das Ergebnis ist eben- 
falls eine doppelt genaue Integer. 

Zur Division von doppelt genauen Zahlen benutzt man in FORTH die 
Worter D/ und D/MOD. Auch diese beiden Kommandos f unktionieren 
ahnlich wie ihre einfach genauen Entsprechungen . 

In vielen Programmen werden sowohl einfach genaue als auch dop- 
pelt genaue Integers benotigt. Die GroBen , die ein Programm be- 
rechnet, konnen z.B. doppelt genau sein, wahrend Schleifenpara- 
meter in der Regel einfach genaue Zahlen sind. Als Beispiel fur 
das Mischen dieser beiden Zahlentypen schreiben wir unser Fakul- 
tatsprogramm erneut (vgl. Abb. 4-6), wobei wir diesmal doppelt 
genaue Integers verwenden. Beachten Sie, daB 8! = 40320 gilt. 
Diese Zahl kann nicht mehr als einfach genaue Integer dargestellt 
werden. Sie sehen das Programm in Abbildung 5-1. Gehen wir es 
einmal im Detail durch. 
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0 ( Doppelt genaue Fakultatsberechnung ) 

1 : FACT 1+1014 ROLL SWAP 

2 DO I 0 D* LOOP D. 

3 

4 

ABBILDUNG 5-1: Ein FORTH-Wort, das die Fakultat 
mit doppelter Genauigkeit berechnet 


Wir nehmen an, da£ Sie mit dem Fakultatsprogramm aus Abbildung 4- 
6 bereits vertraut sind. Wenden wir uns jetzt Abbildung 5-1 zu. 
Das Programm geht davon aus, daB die Zahl, deren Fakultat berech- 
net werden soli, als einfach genaue Integer auf dem Stack liegt. 
Als erstes addieren wir 1 zu dieser Zahl. Im nachsten Schritt 
legen wir eine doppelt genaue 1 auf den Stack, und zwar , indem 
wir zuerst eine 1 und anschliefiend eine 0 auf den Stack pushen. 
Ebensogut batten wir dem Interpreter anzeigen konnen , daB es sich 
urn eine doppelt genaue Zahl handelt, indem wir 1 . anstelle der 1 
und der 0 eingeben. Nach Ausflihrung von 4 ROLL und SWAP enthalt 
der Stack (von oben nach unten) eine 1 , die Zahl, deren Fakultat 
berechnet werden soil erhoht um 1 , und die doppelt genaue Integer 
1 . Mit dem FORTH-Wort DO auf Zeile 2 treten wir in die Schleife 
ein. Dadurch werden die beiden obersten Stack-Eintrage vom Para- 
meter-Stack entfernt und auf den Return-Stack gelegt. Innerhalb 
der Schleife besorgen wir uns als erstes den Schleif enindex durch 
das FORTH-Wort I und machen diesen zu einer doppelt genauen Zahl, 
indem wir eine Null auf den Stack pushen. Der restliche Teil des 
Programms funktioniert genauso , wie Sie es von der Abbildung 4-6 
her schon kennen , auBer daB die doppelt genaue Mul tipi ikation 
benutzt wird. Da das Ergebnis doppelt genau ist, muB auch zur 
Ausgabe das Kommando D- geschrieben werden. 


5.1.3 Stack-Manipulationen mit doppelt genauen Integers 


Die dazu notigen FORTH-Kommandos haben wir bereits ausfuhrlich in 
Abschnitt 2-5 besprochen. 
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5.1.4 Vergleichsworter 

Auch einige Vergleichsworter, die wir in Abschnitt 4-1 kennenge- 
lernt haben , haben ihre Entsprechung fur doppelt genaue Zahlen. 
Das FORTH-Wort D= entspricht dem bekannten =. Das bedeutet, daB 
D= die beiden obersten doppelt genauen Integers vom Stack ent- 
fernt und durch ein Flag ersetzt. Dieses ist wahr, wenn die bei- 
den Zahlen gleich waren. Ansonsten hat das Flag den Wahrhei tswert 
"falsch” . Denken Sie daran , daB ein Flag stets eine einfach ge- 
naue Integer ist. Deshalb haben wir folgende Stack-Relation: 


d 2 -> 


flag 


(5-6) 


Das FORTH-Wort D< entspricht <. Bei Ausfiihrung von D< werden die 
beiden obersten doppelt genauen Integers vom Stack entfernt und 
durch ein Flag ersetzt. Dieses hat den Wahrhei tswert "wahr”, wenn 
die zweite doppelt genaue Integer auf dem Stack kleiner als die 
erste ist. Die Stack-Relation ist die gleiche wie in 5-6. 

Fur den Vergleich von doppelt genauen Zahlen stellt FORTH nicht 
so viele Worter zur Verfugung wie fur einfach genaue Zahlen. Die- 
sen Mangel kann man jedoch einfach beheben , indem man sich seine 
eigenen Vergleichsworter schreibt. Wir konnen ein Wort fur dop- 
pelt genaue Zahlen schreiben, das dem bekannten > entspricht; 
geben wir ihm den Namen DD>. Es soil die beiden obersten doppelt 
genauen Integers vom Stack entfernen und dort ein Flag ablegen. 
Dieses Flag wird "wahr” , wenn die zweite doppelt genaue Integer 
auf dem Stack groBer als die erste doppelt genaue Integer auf dem 
Stack ist. Die Definition dieses Wortes sehen Sie in Abbildung 5- 
2. Als erstes duplizieren wir die oberste doppelt genaue Integer. 
Als nachstes transportieren wir die urspriingliche zweite doppelt 
genaue Integer an oberste Stack-Position, indem wir das Wort 2ROT 
aufrufen. Diese Zahl wird als nachstes dupliziert. Ein weiteres 
2R0T sorgt dafiir, daB der Stack nun folgendermaBen aussieht: d^ 
d^ d. d~. Die urspriingliche Stack-Konf iguration lautete: 

Jetzt iiihren wir den ersten Vergleich mit D< aus . Wir erhalten 
nun ein Flag auf dem Stack, das "wahr" ist, falls d^ kleiner als 
2 ist. Dieses Flag machen wir zu einer doppelt genauen Integer, 
indem wir zusatzlich eine 0 auf den Stack legen. Zweimalige Aus- 
fuhrung von 2ROT bringt erneut die urspriinglichen zwei doppelt 
genauen Zahlen zuoberst auf den Stack. Da wir als nachstes einen 
Vergleich mit D= anstellen, spielt es keine Rolle, in welcher 
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Reihenfolge sich diese beiden Zahlen in den ersten beiden Stack- 
Positionen befinden. Der Vergleich mit D= hinterlaBt ein Flag, 
unter dem sich auf dem Stack eine 0 und ein wei teres Flag befin- 
den. ROT holt diese beiden Flags nun nach oben. Wenn eines von 
lhnen "wahr" ist, dann sollte DD> als Ergebnis ein " falsches" 
Flag liefern. Die einfache Addition mittels + , die in diesem Fall 
ausreichend ist, liefert uns nun entweder eine 0, eine 1 oder 
eine 2. Erhalten wir die 1 oder die 2, dann sollte DD> ein "fal- 
sches" Flag hinterlassen . Im Falle der 0 wird DD> aber wahr; 
diesen Fall testen wir durch 0=. Wir erhalten somit nur dann ein 
"wahres" Flag, wenn beide zum Vergleich herangezogenen Flags auf 
dem Stack den Wahrhei tswert "falsch" haben. 


0 ( Doppelt genaues Vergleichswort ) 

1 : DD> 2DUP 2 ROT 2DUP 2 ROT 

2 D< 0 2 ROT 2 ROT D= ROT 

3 + 0= . DROP 

4 

5 

ABBILDUNG 5-2 Vergleich zweier doppelt genauer Integers 


5.1.5 Weitere Befelile fur doppelt genaue Integers 


Wir stellen hier noch eine Reihe weiterer Befehle vor, die ahn- 
lich wie einige bereits bekannte Worter arbeiten, aber fur dop- 
pelt genaue Integers vorgesehen sind. 

DNEGATE - Das FORTH-Wort DNEGATE ist die doppelt genaue Entspre- 
chung von NEGATE (vgl. Abschnitt 2-7). DNEGATE andert das Vorzei- 
chen der doppelt genauen Integer an oberster Stack-Position. 

DMIN, DMAX und DABS - Diese drei FORTH-Worter entsprechen den 
bereits bekannten Befehlen MIN, MAX und ABS, die Sie in Abschnitt 
2-7 kennengelernt haben. DMIN entfernt z.B. die beiden obersten 
doppelt genauen Integers vom Stack und legt die kleinere der 
beiden dort ab. Das FORTH-Wort DABS ersetzt die oberste doppelt 
genaue Integer auf dem Stack durch ihren Absolutwert. 
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Df IN - Das FORTH-Wort D#IN entspricht dem bekannten #IN (vgl. 
Abschnitt 3-1 ) - Das Kommando findet sich nicht in MMSFORTH. Bei 
Aufruf von D#IN unterbricht der FORTH-Interpreter seine Berech- 
nungen und gibt ein Fragezeichen auf dem Bildschirm aus, Der 
Benutzer kann nun eine doppelt genaue Integer eingeben und an- 
schlieBend die RETURN-Taste drucken. Selbst wenn die eingegebene 
Zahl keinen Dezimalpunkt enthalt, so wird sie von D#IN als dop- 
pelt genaue Integer behandelt. Die Stack-Relation zu diesem Wort 
ist : 


— > d 


(5-7) 


5.2 Formatieren von Zahlen 


Auch bei doppelt genauen Integers besteht die Moglichkeit zur 
formatierten Ausgabe , ahnlich, wie wir es bereits in Abschnitt 3- 
3 besprochen haben. Dabei muB man nur in einigen Fallen andere 
Befehle fur doppelt genaue Integers verwenden, kann jedoch mei- 
stens auf die fur einfache Zahlen bereits vertrauten Worter zu- 
riickgreifen. 


5.2.1 Da tenf elder 


Das FORTH-Wort D-R entspricht dem in Abschnitt 3-3 bereits disku- 
tierten -R. Bei Ausfiihrung von D-R sollten sich mindestens zwei 
Werte auf dem Stack befinden, namlich eine einfach genaue Integer 
an oberster Stack-Position und darunter eine doppelt genaue Inte- 
ger. D-R entfernt diese beiden Werte vom Stack. Die einfach ge- 
naue Integer gibt die Breite des Felds an, in dem die doppelt ge- 
naue Zahl ausgegeben werden soil. Wir haben also folgende Stack- 
Relation: 

d n — > (5-8) 

Ansonsten gelten alle in Abschnitt 3-3 angestellten Uberlegungen 
fiir das Ausgeben von Zahlen in Datenfeldern auch fur doppelt ge- 
naue Integers . 
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5.2.2 Zahlenausgabe mit Maske 


Auch diese Art der Ausgabe haben wir bereits in Abschnitt 3-3 
kennengelernt . Die Kenntnisse, die Sie dort erworben haben, kon- 
nen Sie ohne Xnderung auf doppelt genaue Integers ubertragen. 
Tatsachlich ist die Zahlenausgabe mit Maske ausschlieBlich fur 
doppelt genaue Integers vorgesehen, weswegen wir in Kapitel 3-3 
ja auch immer unsere einfach genauen Zahlen erst durch Hinzufugen 
einer Null zu doppelt genauen Zahlen machen muBten. Diesen 
Schritt konnen Sie sich bei der Ausgabe von doppelt genauen Inte- 
gers mit Maske naturlich sparen. Ansonsten gilt das Kapitel 3-3 
unverandert. 


5.2.3 Xndern der Zahlenbasis 


Auch hier gel ten die Ausfuhrungen von Kapitel 2-7 unverandert fur 
doppelt genaue Integers. Wenn Sie so z.B. den Befehl HEX einge- 
ben , dann wird jede Zahl, sei sie einfach oder doppelt genau, in 
hexadezimaler Schreibweise ausgegeben. (Natiirlich werden auch 
Ihre Eingaben als Hexadezimalwerte interpretiert . ) 


5.3 Skalieren von Zahlen 


Bei den bisherigen Rechenbeispielen mit Integers sind wir davcn 
ausgegangen, daB die Ergebnisse unserer Programme stets korrekt 
sind. Dies ist jedoch nicht immer der Fall. Angenommen , wir wcl- 
len folgenden Ausdruck berechnen: 


(2/4) *6 


(5-9) 


Der Bruch 2/4 entspricht 1/2 und 1/2 mal 6 ist gleich 3. Was aber 
macht FORTH aus diesem Ausdruck? Angenommen, wir geben folgendes 
ein: 
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624/* (RETURN) (5-10) 

Der Befehl / dividiert 2/4. Dies liefert als Ergebnis jedoch 0 
( vgl Abschnitt 2-1)! Wenn wir 0 mit 6 multiplizieren, dann erhal- 
ten wir wiederum 0. DaB wir hier ein falsches Ergebnis erhalten, 
ist kein Fehler von FORTH. Die Berechungen von FORTH sind genau. 
Der Fehler ergibt sich daraus , daB bei der Integer-Division der 
Divisionsrest verlorengeh t . In diesem Fall haben wir es mit einem 
extremen Fall eines sog. Rundungs fehler s zu tun. Betrachten wir 
noch ein weiteres Beispiel. Der Benutzer gibt ein: 6 21 4 / * 
(RETURN). Dies sollte als Ergebnis (5,25) mal 6 ist gleich 31,5 
liefern. FORTH berechnet jedoch 5*6=30. Auch hier geht bei der 
Integer-Division der Divisionsrest verloren. Die Division von 
21/4 liefert deshalb das Ergebnis 5. Wir konnen die Genauigkeit 
der Berechnung (5-9) erhohen , indem wir die Multiplikation vor 
der Division ausfiihren. Dazu schreiben wir (5-10) neu als 


4 6 2 * SWAP / (RETURN) 


(5-11 ) 


In diesem Fall wird zuerst das Produkt von 2 und 6 berechnet und 
liefert den Wert 12. Diesen dividieren wir anschlieBend durch 4, 
wodurch wir das Ergebnis 3 erhalten. Jetzt haben wir die richtige 
Antwort. Nun zu dem zweiten Beispiel; hier sieht der Stack so 
aus: 4 6 21 . Wir multiplizieren zuerst und erhalten 21*6=126. Die 
Division von 126/4 sollte 31,5 ergeben, bekanntermaBen wird bei 
Integer-Division jedoch der Rest fallen gelassen , so daB sich das 
Ergebnis 31 einstellt. Bei unserem vorherigen Berechnungsversuch 
erhielten wir 30. Naturlich ist das Ergebnis 31 genauer als das 
Ergebnis 30. 

Diese Beispiele haben gezeigt , daB man die Genauigkeit von Re- 
chenergebnissen verbessern kann , indem man die Mul tiplikationen 
in einem Ausdruck moglichst vor den Divisionen ausfiihrt. Dies ist 
jedoch nicht immer moglich. Selbst wenn wir nur mit Zahlen arbei- 
ten, die verhaltnismaBig klein sind, so konnen die als Zwischen- 
ergebnis anfallenden Produkte trotzdem fur das System zu groB 
werden. Bei der Arbeit mit einfach genauen Integers miissen ja al- 
le Zahlen zwischen -32768 und 32767 liegen. Nehmen Sie jetzt 
einmal an, daB wir den Ausdruck ( 459) *( 734/91 5 ) zu berechnen 
haben. Das Produkt 363 906 ist zu groB zur Darstellung in einer 
einfach genauen Integer, weswegen die Berechnung in einem fehler- 
haften Ergebnis endet. (Oftmals zeigt Ihr System diesen Fehler 
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gar nicht erst an!) Andererseits ist das Endergebnis 368,2 nicht 
zu groB fur das System. Wir konnten diese Schwierigkeit umgehen , 
mdem wir mit doppelt genauen Zahlen arbeiten. Diese benotigen 
aber bekanntermaBen mehr Rechenzeit und Speicherplatz. Zum Gluck 
stellt FORTH ein Wort bereit, das die Arbeit mit groBen Produkten 
als Zwischenergebnis erlaubt, ohne daB wir bei unseren Berechnun- 
gen auf doppelt genaue Integers zuruckgreif en miissen. 

*/ - Das FORTH-Wort */ arbeitet mit drei einfach genauen Integers 
auf dem Stack. Es hat folgende Stack-Relation: 


n 2 n 3 


— > n 


erg 


(5-12) 


Seine Arbeitsweise ist wie folgt: Zuerst wird das Produkt n^*n„ 

berechnet. Das Ergebnis dieser Multiplikation wird als doppelt 
genaue Integer gespeichert. Diese wird anschlieBend durch n 
dividiert. Das Endergebnis wird als einfach genaue Integer auf 
den Stack gepusht. Dadurch, daB das Zwischenergebnis (das Pro- 
dukt) doppelt genau gespeichert ist, ergeben sich keine Uberlauf- 
probleme , (d.h., es kann nicht passieren, daB das Zwischenergeb- 

nis zu groB wird). Der Benutzer muB sich jedoch bei der Arbeit in 
seinem Programm nicht mit den Details fur den Umgang mit doppelt 
genauen Integers befassen. Wir konnen jetzt die Berechnungen aus 
Beispiel 5-10 neu schreiben: 


624*/ (RETURN) 


(5-13) 


*/MOD - Das FORTH-Wort */MOD funktioniert genauso wie */> auBer 
daB es zwei einfach genaue Integers als Ergebnis liefert. Bei der 
einen handelt es sich urn den Quotienten, wahrend die andere der 
Divisionsrest ist. Wir haben also folgende Stack-Relation: 


— > n . n 

rest quot 


(5-14) 


Der oberste Stack-Eintrag nach Ausfuhrung von */MOD stellt den 
Quotienten der Division dar, wahrend der zweite Stack-Eintrag der 
Divisionsrest ist. 
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D*/ und D*/MOD - Diese beiden FORTH-Worter funktionieren genauso 
wie */ und */MOD, auBer daB sie mit doppelt genauen Zahlen arbei- 
ten. Als Zwischenergebnis wird ein Produkt in zwei aufeinander- 
folgenden doppelt genauen Integers abgelegt, d.h., das Zwischen- 
ergebnis wird in vierfacher Genauigkeit dargestellt. Dadurch kon- 
nen wir die Vorteile der beiden eben eingefuhrten Arithmetik- 
Worter auch fur doppelt genaue Integers nutzen. D*/ und D*/MOD 
sind ebenfalls nicht Teil von FORTH-79, jedoch im MMSFORTH imple- 
mentiert . 


5.3.1 Skalieren von Berechnungen 


Was macht man, wenn man mit Zahlen mit Nachkommastel len (z.B. 
Geldbetragen) rechnen muB, jedoch nur Integers in seinem System 
zur Verfiigung hat? In diesem Fall bedient man sich eines Verfah- 
rens, das den Namen Skalierung tragt. Als Beispiel nehmen wir uns 
vor , die Provision eines Verkaufers zu berechnen. Dabei miissen 
wir mit DM- und Pf ennigbetragen rechnen. AuBerdem ist es erfor- 
derlich, einen bestimmten Prozentsatz der Umsatze des Verkaufers 
zu berechnen. All diese Operationen haben mit Dezimalbriichen zu 
tun. Dennoch konnen wir in unseren Berechnungen mit Integers 
arbeiten. Angenommen, wir haben es mit einem Betrag von 56,42 DM 
zu tun. Wenn wir diesen Betrag mit 100 mul tiplizieren , dann kon- 
nen wir ihn als die Integer 5642 darstellen. Wenn DM-Betrage mit 
100 multipliziert werden , dann kann man sie also als Integers 
reprasentieren. In diesem Fall sagt man, daB der Betrag mit dem 
Skalierungsf aktor 100 multipliziert wurde. Auch bei den eben 
eingefuhrten Worten */ und */MOD kann man von einer bestimmten 
Art von Skalierung sprechen. SchlieBlich skaliert FORTH automa- 
tisch doppelt genaue Integers; wenn Sie eine Zahl mit einem Dezi- 
malpunkt an beliebiger Stelle innerhalb der Ziffernfolge einge- 
ben, dann wird diese Zahl automatisch als doppelt genaue Integer 
behandelt . Wenn Sie aber nicht mit automatischer Skalierung ar- 
beiten, sondern die Skalierungsfaktoren selbst bestimmen, dann 
miissen Sie sehr vorsichtig vorgehen . Insbesondere miissen alle 
Werte mit demselben Faktor skaliert werden. Bei Eingabe von 45.78 
und 4.578 behandelt FORTH diese beiden Werte als die gleiche 
Zahl. Sieht man diese beiden Werte jedoch als Geldbetrage (mit 
Dezimalpunkt , wie in Amerika iiblich) an, dann ist der eine Betrag 
zehnmal groBer als der andere. 
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Jetzt aber zuriick zu unserem Beispiel, der Berechnung von Verkau- 
ferprovisionen. Wir schreiben ein FORTH-Wort, das die Betrage der 
einzelnen Verkaufe addiert und dann 1 5% der sich daraus ergeben- 
den Summe berechnet. Wir werden fiir dieses Problem zwei Losungen 
liefern, wobei die eine mit einfach genauen, die andere mit dop- 
pelt genauen Integers arbeitet. Beide Losungen finden Sie in Ab- 
bildung 5-3. 


0 (Beispiel fuer Skalierung) 

1 : SUMME 1 DO + LOOP ; 

2 : PROVISION SUMME 15 100 */ 

3 CR 0 <# # # 44 HOLD #S #> TYPE ; 

4 

5 

6 (Zweite Fassung mit doppelt genauen Integers) 


7 : 

: DSUMME 

1 DO 

D+ 

LOOP ; 


8 : 

DPROVISION 

DSUMME 

15 

. 100. D*/ 


9 

CR 

<# # 

# 

44 HOLD #S #> 

TYPE ; 


1 0 
1 1 
1 2 

13 

14 
1 5 

ABBILDUNG 5-3: Ein Beispiel fur die Skalierungstechnik 


.-tersuchen wir als erstes das Programm, das mit einfach genauen 
Zas . len arbeitet. Das Hauptwort tragt den Namen PROVISION und ruft 
frinerseits das Unterwort SUMME. Nun zuerst zu SUMME. Dieses he- 
re rr.net die Summe der einzelnen Verkauf e. Dazu wird der Betrag 
■ e-des Verkauf s auf den Stack gepusht und zuletzt die Anzahl der 
^.rzelnen Verkaufe. Die Zahlen, die den Verkauf swert darstellen, 
i: 11 ten als Pf ennigbetrage eingegeben werden. Wenn der Vertreter 
drei Verkaufe mit einem Wert von 45,09 DM, 56,32 DM und 
15,45 DM getatigt hat, dann miissen Sie folgendes eingeben: 


4509 5632 10345 3 


(5-15) 
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Wie Sie sehen konnen, sind die solcherart eingegebenen Daten be- 
reits skaliert. SUMME legt nun, wenn es gerufen wird, eine 1 auf 
den Stack und tritt in eine DO-Schleife ein. Das DO-Wort findet 
vorschrif tsmaBig den Anfangswert fur den Schleif enindex und den 
Testwert auf dem Daten-Stack vor , welche es von dort entfernt und 
auf den Return-Stack legt. Im Falle des Beispiels 5-1 5 bedeutet 
dies, daB zwei Schleif endurchgange stattfinden, d.h., in diesem 
Fall, daB zweimal addiert wird. Nach Verlassen der Schleif e haben 
wir also die Summe der vom Verkaufer getatigten Umsatze. Wenden 
wir uns nun dem Hauptwort PROVISION zu. Dieses ruft als erstes 
das bereits besprochene SUMME, urn den Gesamtumsatz zu erhalten. 
Urn nun 15 % von dieser Summe berechnen zu konnen, pushen wir 15 
und 100 (in dieser Reihenfolge) auf den Stack und rufen das 
arithmetische Wort */. Dies bewirkt, daB der Gesamtumsatz mit 15 
mul tipliziert und anschlieBend durch 100 dividiert wird. Wir 
haben somit die gewunschten 15 % des Gesamtumsatzes berechnet. 
Diesen Betrag wollen wir jetzt ausdrucken, wobei sich das Dezi- 
malkomma an der richtigen Stelle befindet. Dazu dienen die Anwei- 
sungen in Zeile 3, die ein wei teres Beispiel fur die Zahlenaus- 
gabe mit Maske (vgl. Abschnitt 3-3) darstellen. Die auszugebende 
Zahl wird erst einmal doppelt genau gemacht, indem eine 0 auf den 
Stack gepusht wird. Die Ausgabemaske bewirkt, daB die beiden 
niedrigstwertigen Dezimalzif f ern der Zahl rechts vom Dezimalkomma 
ausgegeben werden. Dies ist vollig analog zu den Beispielen in 
Abschnitt 3-3. 

Wenden wir uns nun dem zwei ten Beispiel von Abbildung 5-3 zu , 
welches mit doppelt genauen Integers arbeitet. Jetzt sollten Sie 
bei der Dateneingabe den (in Amerika iiblichen) Dezimalpunkt mit 
eingeben und dabei das iibliche Format fur Geldbetrage verwenden. 
Die Daten aus Beispiel 5-15 miissen also folgendermaBen eingegeben 
werden : 


45.09 56.32 103.45 3 


(5-16) 


Die Anzahl der Eingabedaten (3) geben wir nach wie vor als ein- 
fach genaue Integer an. Das Wort zur Summenbildung - DSUMME - 
funktioniert im wesentlichen genauso wie SUMME, auBer daB doppelt 
genaue Addition mittels D+ ausgefiihrt wird. Ebenso ist DPROVISION 
im wesentlichen dem Wort PROVISION ahnlich. Unterschiede ergeben 
sich daraus, daB wir zur Berechnung des Prozentsatzes den doppelt 
genauen Operator D*/ verwenden wollen. Deshalb miissen wir die 
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Konstanten in der Form 15. und 100. eingeben, damit sie von FORTH 
als doppelt genaue Werte interpretiert werden. Weil D*/ ein dop- 
oelt genaues Ergebnis liefert, miissen wir nicht erst eine Null 
auf den Stack hieven, ehe wir das Ergebnis mit der Druckmaske 
ausgeben konnen. 

Nicht alle FORTH-Systeme verfugen uber D*/. Wenn Ihr System al- 
lerdings die Worter D* und D/ kennt, dann konnen Sie trotzdem mit 
□PROVISION arbeiten; allerdings ist es dann nicht moglich, Zwi- 
schenergebnisse mit vierfacher Genauigkeit zu speichern. 


5.4 Berechnungen im gemischten Modus 


Manchmal ist es notig , bei einer Berechnung sowohl mit einfachen 
als auch mit doppelt genauen Integers zu arbeiten. Wir wissen ja 
bereits, daB manchmal das Produkt zweier einfach genauer Integers 
zu groB ist, urn in einer einfach genauen Integer Platz zu finden. 
Wenn beide Zahlen positiv sind, dann konnen wir mit der bereits 
bekannten Methode (0 auf den Stack pushen) zur rechten Zeit aus 
den Multiplikanden doppelt genaue Zahlen machen und unser Ergeb- 
nis mit doppelt genauer Multiplikation berechnen. Einige FORTH- 
Systeme verfugen jedoch uber Worter, die dem Benutzer in diesen 
Situationen die Arbeit erleichtern. Sie sind zwar kein Teil von 
FORTH-79, stehen jedoch in MMSFORTH und anderen FORTH-Sys temen 
zur Verfugung. Kommen in einer Berechnung unterschiedliche Zah- 
lentypen - in diesem Fall einfache und doppelt genaue Integers - 
vor, so spricht man von Berechnungen im gemischten Modus. Dem 
gemischten Modus gilt unser Interesse in diesem Abschnitt. 

M* - Das FORTH-Wort M* entfernt zwei einfach genaue Integers vom 
Stack, berechnet ihr Produkt als doppelt genaue Integer und legt 
diese auf den Stack. Wir erhalten folgende Stack-Relation: 


n„ n 0 --> d. 


prod 


(5-17) 


So berechnet beispielsweise das folgende Wort das Produkt zweier 
einfach genauer Zahlen mit doppelter Genauigkeit und gibt es auch 
als doppelt genaue Integer aus: 
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: MIXMULT M* D. ? 


( 5 - 18 ) 


M/ und M/MOD - Wir wissen bereits, daB es oftmals sehr gelegen 
kommt , das Produkt zweier einfach genauer Zahlen mit doppelter 
Genauigkeit zu erhalten. Umgekehrt kann es auch niitzlich sein, 
sowohl den Quotienten als auch den Rest der Division einer dop- 
pelt genauen Integer durch eine einfach genaue Integer mit einfa- 
cher Genauigkeit darzus tellen . Bei einer solchen Operation im 
gemischten Modus liefert das Wort M/ den Quotienten mit einfacher 
Genauigkeit. Wir erhalten folgende Stack-Relation: 


d 


n — > n 

quot 


( 5 - 19 ) 


Beachten Sie, daB die doppelt genaue Integer (an zweiter und 
dritter Stack-Position) durch die einfach genaue Integer an ober- 
ster Stack-Position dividiert wird. Diese beiden Zahlen (also 
insgesamt drei Stack-Positionen) werden vom Stack entfernt und 
durch den einfach genauen Quotienten ersetzt. 

Das Wort M/MOD funktioniert ahnlich wie M/, auBer daB es als 
Ergebnis zwei einfach genaue Integers liefert. Eine davon ist der 
Quotient, wahrend die andere den Divisionsrest darstellt. Die 
Stack-Relation lautet: 


d n — > n 


rest quot 


(5-20) 


Beachten Sie, daB sich der Quotient an oberster Stack-Position 
bef indet . 

M+ und M- - Zum Addieren einer doppelt genauen Integer mit einer 
einfach genauen Integer dient das Wort M+. Das Ergebnis dieser 
Operation ist natiirlich eine doppelt genaue Integer, weswegen die 
Stack-Relation lautet: 


d 


n — > d 

sum 


(5-21 ) 
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Beach ten Sie, daB sich die einfach genaue Zahl an oberster Stack- 
Position befinden muB. Auch Subtraktionen im gemischten Modus 
sind moglich; dazu bedient man sich des Wortes M-. Es hat die 
Stack-Relation : 


d n 


— > d 


dif 


(5-22) 


Wie Sie sehen , wird die einfach genaue Integer an oberster Stack- 
Position von der doppelt genauen Integer subtrahiert, die die 
zweite und dritte Stack-Position belegt. Das Ergebnis, welches 
die beiden Argumente der Operation ersetzt, wird in doppelter 
Genauigkeit dargestellt. 

Sollte Ihr FORTH-System uber M- nicht verfugen, so konnen Sie 
sich zumindest fur positive Zahlen leicht ein eigenes Wort defi- 
meren, das dieselbe Wirkung hat. Seine Definition lautet: 


: MIX- 0 D- ; 


(5-23) 


Mit dem erprobten Trick machen wir aus der einfach genauen Inte- 
ger an oberster Stack-Position eine doppelt genaue, so daB wir 
das Wort D- rufen konnen. 

M*/ - Dieses Wort funktioniert ahnlich wie */ Oder D*/j auBer daB 
es im gemischten Modus arbeitet, also das Produkt einer doppelt 
genauen Integer mit einer einfach genauen Integer berechnet, die- 
ses Ergebnis mit dreifacher Genauigkeit speichert (also drei 
Stack-Positionen dazu benotigt) und anschlieBend durch eine ein- 
fach genaue Integer dividiert. Der Quotient dieser Division wird 
mit einfacher Genauigkeit dargestellt. Es ergibt sich folgende 
Stack-Relation: 


d n„ 


— > n 


quot 


(5-24) 


Dabei wird das Produkt aus d und berechnet und anschlieBend 
durch n^ dividiert. 
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5 . 5 Vorzeichenlose Zahlen 


Alle in den bisherigen Programmbeispielen verwendeten Zahlen 
waren mit einem Vorzeichen versehen. Sie konnten also entweder 
positiv Oder negativ sein, was bei der Ausgabe durch ein vorge- 
stelltes Minuszeichen bzw. das Fehlen desselben angezeigt wird. 
Sie haben bereits erfahren, da6 Ihr Computer Zahlen intern als 
Folgen von Nullen und Einsen (sog. Bits) speichert , also in der 
Binardarstellung (vgl. Abschnitt 1-2). Eines dieser Bits benutzt 
der Rechner dabei zur Speicherung des Vorzeichens. Allerdings 
ergibt sich eine negative Zahl nicht einfach aus einer positiven, 
indem man das entsprechende Bit verandert! Arbeiten wir nun aus- 
schlieBlich mit positiven Zahlen, dann brauchen wir keine Vorkeh- 
rungen fur negative Zahlen zu treffen und konnen deshalb auf 
dieses Vorzeichenbit verzichten. Es steht dann zur Verfugung, urn 
den Absolutbetrag der Zahl zu reprasentieren , wodurch der Werte- 
vorrat der dars tellbaren Zahlen vergroBert wird. In einem typi- 
schen FORTH-System werden in der Regel 16 Bits fur die Dar- 
stellung von vorzeichenbehaf teten einfach genauen Integers ver- 
wendet. Wie bereits mehrfach ausgefiihrt, konnen solche Zahlen im 
Bereich zwischen -32768 und 32767 liegen. Wenn wir nun diese 16 
Bits zur ausschlieBlichen Darstellung von positiven Zahlen benut- 
zen, dann konnen wir damit Zahlen zwischen 0 und 65535 reprasen- 
tieren. FORTH erlaubt es, einfach genaue Integers so zu behan- 
deln , als ob sie kein Vorzeichen hatten. Allerdings sollten Sie 
sich dariiber im klaren sein, daB Sie einer Zahl auf dem Stack 
nicht ohne weiteres ansehen konnen, ob sie vorzeichenlos oder mit 
einem Vorzeichen versehen ist. Es liegt allein in Ihrer Verant- 
wortung, ob das Programm die Zahlen rich tig interpretiert . 

U. - Das FORTH -Kommando U- arbeitet wie das Punktkommando in 
FORTH, auBer daB es davon ausgeht, daB die auszugebende Zahl vor- 
zeichenlos ist. Seine Stack-Relation lautet: 


u — > 


(5-25) 


Wie Sie sehen konnen, stellen wir vorzeichenlose Zahlen auf dem 
Stack durch den Buchstaben "u" dar. Der Platzbedarf von vorzei- 
chenlosen Zahlen ist der gleiche wie der von einfach genauen 
Integers; Zahlen vom Typ "u" und "n" beanspruchen also beide 
genau eine Stack-Position. Man kann also sagen, daB U. die ober- 
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ste einfach genaue Integer vom Stack entfernt und als vorzeichen- 
_ose Zahl ausgibt. Wir wollen einmal an einem kleinen Beispiel- 
jrogranun den Unterschied zwischen vorzeichenlosen Zahlen und 
solchen mit Vorzeichen demonstrieren . Betrachten Sie das folgende 
Wor t : 


: CHECK DUP U. . ; (5-26) 


If f ensichtlich dupliziert CHECK die oberste einfach genaue Zahl 
auf dem Stack und gibt sie einmal als vorzeichenlose und einmal 
als "gewohnliche" Integer aus. Bei Eingabe von 

3 CHECK 

erhalten wir als Ergebnis 
3 3 

Wenn eine Integer also positiv ist, dann ist ihre vorzeichenlose 
Interpretation identisch mit der vorzeichenbehaf teten . Ganz an- 
ders sieht es bei negativen Zahlen aus. Probieren Sie einmal das 
folgende: 

-1 CHECK 

Dies liefert das Ergebnis 
65535 -1 

Dies bedeutet, daB die Binardarstellung der vorzeichenbehaf teten 
Zahl -1 gleich ist wie die der vorzeichenlosen 65535. 

U.R - Das FORTH-Wort U-R dient der Ausgabe von vorzeichenlosen 
Zahlen und entspricht weitgehend dem bereits bekannten .R (vgl. 
Abschnitt 3-3). U.R erwartet jedoch, daB es eine vorzeichenlose 
Zahl ausgeben soli. Seine Stack-Relation lautet: 


u n — > 


(5-27) 
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Wie bei -R gibt der oberste Stack-Eintrag die Feldbreite an, 
wahrend der zweite Stack-Eintrag die auszugebende Zahl darstellt. 
Beide Werte werden durch U.R vom Stack entfernt. 1st das angege- 
bene Feld nicht breit genug fur die Ausgabe dieser Zahl, so 
kummert sich FORTH nicht urn diese Angabe und legt selbst ein aus- 
reichend breites Feld an. 

U* - Dieses FORTH -Kommando dient der Multiplikation zweier vor- 
zeichenloser Integer. U* entfernt die obersten zwei Zahlen vom 
Stack, bildet ihr Produkt und legt es als vorzeichenlose doppelt 
genaue Integer auf den Stack. Dadurch wird der Darstellungsbe- 
reich des Ergebnisses noch einmal betrachtlich vergroBert, da 
vorzeichenlose doppelt genaue Integers bis zu 4294967295 groB 
sein konnen. Wir haben folgende Stack-Relation: 


u i u 2 u a 


(5-28) 


Zur Darstellung einer doppelt genauen vorzeichenlosen Integer 
verwenden wir also ein "u" mit dem Index M d" . Zur Ausgabe dieses 
Zahlen typs gibt es keine eigenen FORTH-Worte; dies kommt daher, 
weil dieser Datentyp hauptsachlich zur Speicherung von Zwischen- 
ergebnissen dient. Wir wenden uns deshalb der Frage zu, wie man 
aus vorzeichenlosen doppelt genauen Integers vorzeichenlose ein- 
fach genaue Integers machen kann. 

U/MOD - Das FORTH-Kommando U/MOD sorgt dafur, daB die vorzeichen- 
lose doppelt genaue Integer in zweiter und dritter Stack-Position 
durch die vorzeichenlose einfach genaue Integer an erster Stack- 
Position dividiert wird. Diese beiden Werte werden vom Stack 
entfernt, und an ihrer Stelle werden Quotient und Divisionsrest 
dort abgelegt. Es ergibt sich folgende Stack-Relation: 


u d u 


— > 


u u 

rest quot 


(2-29) 


Sowohl Quotient als auch Rest werden als vorzeichenlose einfach 
genaue Zahlen ausgegeben. Denken Sie daran , daB Sie sich diese 
Werte mit dem Kommando U- und nicht einfach mit dem Punktkommando 
ansehen miissen, urn das korrekte Ergebnis zu erfahren. 
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U< - Dieses FORTH-Wort dient zum Vergleich zweier vorzeichenloser 
Zahlen. Es liefert ein Flag, das "wahr" ist, wenn die zweite Zahl 
auf dem Stack kleiner ist als die erste Zahl auf dem Stack. Beide 
zu vergleichenden Zahlen miissen vorzeichenlose Integers sein, 
weswegen sich folgende Stack-Relation ergibt: 




--> n 


flag 


(5-30) 


Das Flag ist also nur dann "wahr", wenn kleiner als ist. 

DO und /LOOP - LJm die Anzahl der Durchgange durch eine unbedingte 
Schleife groBer zu machen , ist es moglich, diese Parameter als 
vorzeichenlose Integers anzugeben. Solche Schleifen miissen aller- 
dings mit Hilfe des Wortpaares DO und /LOOP aufgebaut werden. Die 
beiden Worter funktionieren genau wie die bereits bekannten DO 
und +LOOP , auBer daB die Schleif enparameter als vorzeichenlose 
einfach genaue Zahlen behandelt werden. Ansonsten gilt fur solche 
Schleifen alles, was bereits in Abschnitt 4-3 gesagt wurde . 


5.6 Bit-Operationen 


Wie Sie wissen, speichert Ihr Computer intern alle Zahlen in der 
Binardarstellung- Die Binardarstellung einer Zahl besteht aus 
einer Folge von Nullen und Einsen. Jede dieser Nullen bzw. Einsen 
tragt den Namen Bit . Gelegentlich ist es niitzlich, die einzelnen 
Bits, die zur Darstellung einer Binarzahl dienen, gezielt manipu- 
lieren zu konnen. In diesem Abschnitt werden Sie FORTH-Worter 
kennenlernen , mit denen das moglich ist. 

Wenn einzelne Bits manipuliert werden, dann geschieht dies mit 
Hilfe sog. logischer Opera toren . Einige dieser Operatoren werden 
sehr haufig gebraucht. Es sind dies das logische UND, das logi- 
sche ODER und das logische exklusive Oder (XOR) . Diese Operatoren 
vergleichen stets zwei Bitwerte miteinander und liefern in Abhan- 
gigkeit davon einen neuen Bitwert. Das logische UND (engl. AND) 
vergleich t zwei Bits; sind sie beide auf 1 gesetzt, dann liefert 
auch UND den Wert 1 . Ist nur eines der beiden Bits (oder auch 
beide) auf Null gesetzt, so hat auch die UND-Operation den Wert 
0. Auch das logische ODER vergleicht zwei Bits. Wenn nur eines 
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der beiden (oder auch beide) Bits auf 1 gesetzt ist , dann hat 
ODER den Wert 1 . Die Operation des logischen ODER liefert also 
nur dann den Wert Null , wenn beide Vergleichsbits den Wert Null 
haben. Die dritte logische Operation, die haufig anzutreffen ist, 
das exklusive Oder ( Fachausdruck : XOR) verhalt sich ahnlich wie 
die ODER-Operation. Wenn eines der beiden Vergleichsbits den Wert 
1 hat, dann wird auch XOR den Wert 1 liefern. Zusatzlich hat XOR 
aber auch noch den Wert 0, wenn beide Vergleichsbits den Wert 1 
haben. Anders ausgedriickt kann man sagen , daB XOR nur dann den 
Wert 1 liefert, wenn die beiden Vergleichsbits verschiedene Werte 
haben; sind sie beide gleich 0 oder gleich 1 , dann ergibt XOR 
auch den Wert 0. Die FORTH-Worter zur Ausfuhrung dieser logischen 
Operationen sind kein Teil des Standard-FORTH. Sie finden sich 
jedoch im MMSFORTH und in anderen FORTH-Systemen . 

AND - Das FQRTH-Wort AND entfernt die beiden obersten einfach 
genauen Integers vom Stack und vergleicht sie bitweise unter Ver- 
wendung der oben beschriebenen UND-Operation . Dabei wird das 
erste Bit der ersten Zahl mit dem ersten Bit der zweiten Zahl 
iiber logisches UND verglichen. Sind beide Bits gleich 1 , dann 
wird auch das erste Bit in der Ergebniszahl den Wert 1 haben; ist 
nur eines der Vergleichsbits 0, dann hat auch das erste Bit in 
der Ergebniszahl den Wert 0. Als nachstes wird das zweite Bit der 
ersten Zahl mit dem zweiten Bit der zweiten Zahl verglichen und 
der ProzeB wiederholt. Jedes der 16 Bits einer einfach genauen 
Integer wird somit individuell dem Vergleich mit der logischen 
UND-Operation unterworfen. Dieser ProzeB hat eine neue 16-Bit- 
Zahl zum Ergebnis, welche von AND auf den Stack gelegt wird. Des- 
wegen lautet die Stack-Relation: 


n 1 n 2 n 


(5-31 ) 


Wir wollen ein Beispiel fur den Einsatz von AND geben. Urn der 
Klarheit willen schreiben wir die Zahlen in Binardarstellung. Da 
die meisten FORTH-Systeme die Zahlenbasis wechseln konnen, ist 
dies durchaus zulassig: Der Programmierer braucht nur zu verein- 
baren, daB er jetzt in der Binardarstellung zu arbeiten wunscht 
(vergleichen Sie dazu Abschnitt 2-7). Unter der Voraussetzung , 
daB wir im Binarsystem (Basis 2) arbeiten, wollen wir jetzt das 
folgende FORTH-Wort definieren. 
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: ANDTEST AND . ; 


(5-32) 


Jetzt tippen wir: 

10011001 01110001 ANDTEST (RETURN) 
als Ergebnis erhalten wir: 

0001 0001 

lediglich die erste und funfte Bit-Position (von rechts gezahlt) 
ist in beiden Vergleichszahlen auf 1 gesetzt. Deshalb erhalten 
wir als Ergebnis des FORTH-Wortes AND eine Zahl , bei der nur die 
erste und die funfte Bit-Position auf 1 gesetzt ist. (Moglicher- 
veise gibt Ihr FORTH-System fiihrende Nullen bei der Darstellung 
einer Binarzahl mcht aus . ) Hatten wir bei der Zahleneingabe im 
Dezimalsystem gearbeitet, dann wiirde das zum selben Ergebnis ge- 
fuhrt haben, auBer daB die Zahlen natiirlich in ihrer dezimalen 
Schreibweise dargestellt worden waren. 

OR - Das FORTH-Wort OR funktioniert ahnlich wie das bereits 
oekannte AND, auBer daB der bitweise Vergleich der beiden Zahlen 
auf dem Stack mit der logischen ODER-Operation erfolgt. Die 
Stack-Relation geht ebenfalls aus (5-31) hervor. Hier ein Bei- 
spiel : 


: ORTEST OR . ; 


(5-33) 


Wenn wir jetzt eingeben: 

10011001 01110001 ORTEST (RETURN) 
dann erhalten wir: 

1111101 

XOR - Das FORTH-Kommando XOR funktioniert im wesentlichen genauso 
wie OR, auBer daB fur die Bit-Vergleiche die Operation des exklu- 
siven Oder herangezogen wird. 
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5 - 7 Gleitkoranaarithmetik 


Bisher konnten wir nur mit ganzen Zahlen rechnen. Wenn Geldbe- 
trage an unseren Berechnungen beteiligt waren , haben wir uns mit 
Skalierung beholfen, um aus diesen ganzzahlige Summen zu bilden. 
Bei der Arbeit mit Programmiersprachen gibt es jedoch einen 
grundlegenden Unterschied zwischen Operationen mit ganzen Zahlen 
(Integers) und Operationen mit Gleitkommazahlen. Ein Computer 
benotigt zur Darstellung einer Gleitkommazahl in der Regel zwei 
Teile: die Mantisse und den Exponenten . Bei der Ausgabe einer 
Zahl wird der Exponent meist als Zehnerpotenz geschrieben. Diese 
Darstellung von Gleitkommazahlen - die sog. wissejjschaf tliche 
Notation - schreibt die Zahl 56,7 in der Form .567*10 . Dabei ist 
die Zahl .567 die Mantisse, wahrend es sich bei 10^ um den Expo- 
nenten der Gleitkommazahl handelt. Wir schreiben also: 


.567 xIO 2 = 56.7 


( 5-34a) 


Viele Computer zeigen die 1 Oer-Potenz des Exponenten durch den 
Buchstaben E an, d.h.: 


56.7 = .567 E 2 


( 5-34b ) 


Betrachten wir noch einige weitere Gleitkommazahlen: 

E2=1 00 
E6=1 000000 
E-2= . 0 1 
E-4= . 0001 

Durch den Einsatz von Gleitkommazahlen kdnnen wir sowohl sehr 
groBe als auch sehr kleine Zahlen darstellen und sind auBerdem in 
der Lage , mit Dezimalbriichen zu arbeiten^Bei kleij^ren Computern 
reicht der Exponent in der Regel von 1 0~ bis lO"* - . Damit laBt 

sich eine enorme Menge an Zahlen darstellen. Es gibt jedoch einen 
Nachteil bei den Gleitkommazahlen: Das Arbeiten mit ihnen - die 

sog. Gleitkommaarithmetik - ist wesentlich speicherplatz- und 
rechenzeitaufwendiger als die einfachere Integer- Ari thmetik . Dies 
kommt daher, daB der Computer beim Arbeiten mit Gleitkommazahlen 
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sowohl iiber den Exponenten als auch uber die Mantisse Buch fiihren 
muB. Ein weiterer Nachteil: Integer-Operationen sind - solange 
sich kein Werteiiber- Oder Unterlauf ergibt - stets exakt. Bei 
Gleitkommaoperationen ergeben sich jedoch bei jedem Rechenschritt 
Rundungsfehler . Sie sollten also in Ihren FORTH -Programmen so oft 
vie moglich Integerarithmetik einsetzen. Manchmal ist es jedoch 
unumganglich , mit Gleitkommazahlen zu rechnen. In FORTH-79 ist 
dieser Zahlen typ gar nicht vorgesehen. Im MMSFORTH und anderen 
FORTH-Systemen stehen Gleitkommazahlen jedoch zur Verfugung, 
veswegen wir sie hier darstellen. Fiir die Arbeit mit Gleitkomma- 
zahlen gibt es in FORTH keinen Standard. Deshalb kdnnen auch die 
Worte, die mit diesem Zahlen typ operieren, auf jedem System an- 
ders lauten. Die grundlegenden Ideen fur die Verarbeitung von 
Gleitkommazahlen sind jedoch auf alien Systemen gleich. Deshalb 
werden wir uns im Folgenden auch mehr den elementaren Fragen 
vidmen und nicht so sehr auf Details eingehen. 


5.7.1 Gleitkommaarithmetik in FORTH 


Wenn wir eine Gleitkommazahl eingeben wollen, dann mussen wir 
dies dem Computer irgendwie anzeigen. Dazu stellen wir der Zahl 
ein Prozentzeichen j gefolgt von einem Leerzeichen , voran. Mittels 


% 6 % 7 (RETURN) 


(5-35) 


legen wir also 6 und 7 als Gleikommazahlen auf den Stack. Auch 
hier gilt, dafi man einer Zahl auf dem Stack nicht ansehen kann, 
ob es sich dabei urn eine Gleikommazahl handelt, eine einfach 
genaue Oder eine doppelt genaue Integer. Gleitkommazahlen benoti- 
gen zu ihrer Speicherung ebenso wie doppelt genaue Integers zwei 
Stack-Positionen. 

F#IN - Dieses Wort wendet man an, urn den Benutzer zur Eingabe 
einer Gleitkommazahl auf zuf ordern . Es funktioniert genauso wie 
das bereits bekannte #IN, auBer daB es eine Gleitkommazahl auf 
dem Stack hinterlaBt. 
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F. und F.R - Zur Ausgabe einer Gleitkommazahl setzen wir das 
FORTH-Wort F. ein. Dies entfernt die oberste Gleitkommazahl vom 
Stack und gibt sie auf dem Bildschirm aus . Die Stack-Relation 
lautet : 


f — > 


(5-36) 


Wie Sie sehen, benutzen wir den Buchstaben "f", uin Gleitkommazah- 
len (engl. "floating point numbers") auf dem Stack anzuzeigen. 
Denken Sie daran , dafi jedes "f" ebenso wie jedes "d" zwei Stack- 
Positionen beansprucht. 

Auch Gleitkommazahlen konnen in Datenfeldern ausgegeben werden 
(vgl. Abschnitt 3-3). Dazu dient das FORTH-Wort F.R. Es hat 
folgende Stack-Relation: 


f n --> 


(5-37) 


Der oberste Stack-Eintrag , eine einfach genaue Integer , gibt die 
Feldbreite an. Er wird gefolgt von der Gleitkommazahl, die das 
Wort F.R ausgeben soli. Das Wort entfernt beide Zahlen vom Stack 
und gibt die Gleitkommazahl in einem Feld von der gewunschten 
Breite aus. 


5-7.2 Die Grundrechenarten 


Die FORTH-Worter fur die Grundrechenarten mit Gleitkommazahlen 
(Addition, Subtraktion, Multiplikation und Division) lauten F+, 
F-, F* und F/. Sie entsprechen den bereits bekannten arithme- 
tischen Wortern +, * und /. Alle haben sie die folgende Stack- 
Relation: 


f 2 -■ 


> f 


erg 


(5-38) 
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Jede der Operationen entfernt also die beiden Gleitkommazahlen 
vom Stack und ersetzt sie durch eine neue Gleitkommazahl. Beach- 
ten Sie , daB bei Gleitkommazahlen eine dem MOD-Wort analoge Ope- 
ration unnotig ist, da die Ergebnisse von Gleitkommaoperationen 
sowieso mit Nachkommastellen versehen sind. Wenn wir z.B. folgen- 
des eingeben: 

% 50 % 3 F/ (RETURN) 

dann erhalten wir als Ergebnis auf dem Stack eine Zahl , die der 
Gleitkommazahl .166667 E 10 entspricht. 

Auch Gleitkommazahlen konnen in Programmen mit Integers gemischt 
werden; es liegt jedoch in der Verantwortung des Programmierers , 
den richtigen Zahlentyp bei der Arbeit an das richtige FORTH-Wort 
zu iibergeben. (Es gibt namlich keine Moglichkeit, einem Stack- 
Eintrag anzusehen, welchem Datentyp er zugehort.) So konnen z.B. 
Gleitkommaoperationen innerhalb einer Schleife ausgefiihrt werden. 
In diesem Fall waren die Schleif enparameter ganzzahlig, wahrend 
die Operanden der Operationen Nachkommastellen aufweisen. 


5.7.3 Stack-Manipulation 


Gleitkommazahlen benotigen ebenso wie doppelt genaue Integers 
zwei Stack-Eintrage zur Speicherung. Wenn wir also Gleitkommazah- 
len auf dem Stack manipulieren wollen, dann konnen wir dazu die- 
selben FORTH-Worter benutzen , die wir fur die Manipulation von 
doppelt genauen Integers bereits kennengelernt haben. Es sind 
dies 2DUP, 2DROP, 2 SWAP und 2ROLL . Als Bei spiel schreiben wir 
eine neue Version der bereits bekannten Fakultatsf unktion , dies- 
mal jedoch soli mit Gleitkommazahlen gerechnet werden. Sie sehen 
das Programm in Abbildung 5-4 . 


0 ( Berechnung der Fakultaet mit Gleitkommazahlen ) 

1 : FFACT 1 + % 1 14 ROLL SWAP 

2 DO I I-F F* LOOP F. ; 

3 

4 


ABBILDUNG 5-4: 


Fakultatsberechnung mit Gleitkommazahlen 
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Dieses Programm ist in seinem Aufbau dem von Abbildung 5-1 sehr 
ahnlich. Der einzige Unterschied besteht darin, daS jetzt mit 
Gleitkommazahlen gerechnet wird. In der Definition von FFACT 
taucht ein neues Wort auf : I-F. Dieses dient zur Umwandlung einer 
ganzen Zahl (Integer) in eine Gleitkommazahl ("floating-point 
number) . Es entfernt die oberste Integer auf dem Stack und er- 
setzt sie durch eine gleichwertige Gleitkommazahl. Seine Stack- 
Relation: 


n — > f 


(5-39) 


Es wird also eine Integer, die eine Stack-Position zur Speiche- 
rung benotigt, durch eine Gleitkommazahl mit einem Speicherbedarf 
von zwei Stack-Posi tionen ersetzt. Vergleichen wir nun das Pro- 
gramm aus Abbildung 5-1 mit dem neuen Programm. In Zeile 2 der 
Abbildung 5-1 legen wir die 1 als doppelt genaue Integer auf den 
Stack, indem wir der Reihe nach 1 und 0 pushen. Entsprechend 
dient in Zeile 2 der Abbildung 5-4 die Eingabe von % 1 zum Ab- 
legen der 1 als Gleitkommazahl auf dem Stack. In Zeile 2 der 
Abbildung 5-1 legen wir mittels I und 0 den Schleif enindex als 
doppelt genaue Integer auf den Stack. Zeile 3 der Abbildung 5-4 
stellt hingegen den Schleifenindex durch die Worterfolge I und I- 
F als Gleitkommazahl zur Verfugung. In Zeile 3 der Abbildung 5-1 
drucken wir das doppelt genaue Ergebnis mit dem Wort D, wahrend 
ahnlich in Zeile 3 der Abbildung 5-4 das Ausgabewort F. verwendet 
wird. Die Worter, die die Stack-Manipulationen besorgen , sind in 
beiden Programmen gleich. Dies kommt daher , weil beide Programme 
mit Zahlen arbeiten, die jeweils zwei Stack-Positionen zur Spei- 
cherung benotigen. 


5,7.4 Glei tkommaf unktionen 


Neben den Grundrechenarten gibt es noch eine Reihe weiterer 
mathematischer Funktionen, die auf Gleitkommazahlen angewendet 
werden konnen. Wir stellen zuerst einige Funktionen vor , die in 
ihrer Arbeitsweise bereits bekannten ahneln. 

FABS und FMINUS - Das FORTH-Kommando FABS liefert den Absolutwert 
einer Gleitkommazahl und ist darin dem bereits bekannten Kommando 
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\BS ahnlich. FABS entfernt eine Gleitkomraazahl vom Stack und er- 
setzt sie durch ihren Absolutwert (als Gleitkommazahl). 

las FORTH-Wort FMINUS dient ahnlich wie NEGATE zur Umkehrung des 
Vorzeichens einer Gleitkommazahl. Die beiden Worter FABS und FMI- 
NUS haben die Stack-Relation 


f 1 — > f 2 (5-40) 

Sie ersetzen also eine Gleitkommazahl auf dem Stack durch eine 
andere . 


Weiterhin gibt es eine Anzahl von FORTH-Wortern , die zum Ver- 
gleich von Gleitkommazahlen dienen. Das Wort SGN erlaubt es; das 
Vorzeichen einer Gleitkommazahl zu bestimmen. Das Wort entfernt 
die oberste Gleitkommazahl vom Stack und ersetzt sie durch eine 
einfach genaue Integer, die als Flag interpretiert werden kann. 
:er Wert von SGN ist entweder -1 , 0 oder 1 , je nachdem, ob die 
Ausgangszahl kleiner Null, gleich Null oder groBer Null war, SGN 
oesitzt folgende Stack-Relation: 

f — > n (5-41 ) 


Zum Vergleich zweier Gleitkommazahlen dient das FORTH -Kommando 
FCOMP. Es entfernt zwei Gleitkommazahlen vom Stack und ersetzt 
sie durch eine einfach genaue Integer. Diese hat entweder den 
Wert -1,0 oder 1 . Wir haben folgende Stack-Relation: 


f 1 f 2 — > n (5-42) 

Dabei ist n gleich -1 , falls f kleiner f 2 ist, es hat den Wert 
0, falls gilt f^ = f^ und ist ansonsten - wenn also f^ groBer als 
f 2 - gleich 1 . 

Arithmetische Operationen im gemischten Modus sind im Zusammen- 
hang mit Gleitkommazahlen nicht moglich. Man kann also beispiels- 
weise keine Integer mit einer Gleitkommazahl durch eine spezielle 
gemischte Arithmetikoperation mul tiplizieren lassen. Es gibt 
]edoch einen Ausweg aus dieser Notlage. Dieser besteht darin , 
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Umwandlungsfunktionen anzuwenden, die Zahlen von einem Datentyp 
in einen anderen umwandeln, also z.B. aus Integers G lei tkomma zah- 
len machen und umgekehrt. 

Das Wort I-F haben wir bereits kennengelernt . Es wandelt eine 
Integer in eine Gleitkommazahl um, erwartet also eine einfach 
genaue Integer an oberster Stack-Position, entfernt sie von dort 
und ersetzt sie durch eine numerische gleichwertige Gleitkomma- 
zahl. Wir wiederholen noch einmal die Stack-Relation: 


n — > f 


(5-43) 


In der umgekehrten Richtung arbeitet CINT. Die Gleitkominazahl an 
oberster Stack-Position wird entfernt und durch eine ganze Zahl 
ersetzt. Dabei handelt es sich um die groBte ganze Zahl, die 
kleiner oder gleich der Ausgangs-Gleitkommazahl ist. Da CINT zur 
Umwandlung von Gleitkommazahlen in ganze Zahlen dient, hat es 
folgende Stack-Relation: 


f --> n 


(5-44) 


Manchmal kann es notig sein , eine Gleitkommazahl ganzzahlig zu 
machen, ohne ihren Datentyp zu andern (d.h. , ohne sie in eine 
Integer umzuwandeln) . In diesem Fall stehen zwei FORTH-Worter zur 
Verfligung. Eines davon ist FIX. Das Wort entfernt die oberste 
Gleitkommazahl vom Stack und schneidet einfach deren Nachkomma- 
stellen ab. Die sich daraus ergebende Gleitkommazahl wird als 
Ergebnis auf den Stack gelegt. 

Auch das FORTH-Wort INT arbeitet mit einer Gleitkommazahl, die es 
durch eine andere Gleitkommazahl ersetzt, welche numerisch gleich 
der groBten ganzen Zahl ist, die kleiner Oder gleich der Aus- 
gangszahl ist. Bei positiven Zahlen liefern FIX und INT gleiche 
Ergebnisse. Anders sieht die Sache aus, wenn wir mit negativen 
Werten arbeiten. Beach ten Sie, daB -8 die groBte ganze Zahl ist, 
die kleiner oder gleich der Zahl -7,3 ist. 
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Auch fur die mehr f ortgeschrittenen mathematischen Funktionen 
ribt es FORTH-Worter, die wir jetzt darstellen wollen. Die mei- 
sten von ihnen ersetzen eine Gleitkommazahl auf dem Stack durch 
erne andere. 

LOG und LOG1 0 - Diese beiden Kommandos dienen zur Berechnung des 
natiirlichen bzw. ds Zehner-Logarithmus einer Zahl. So erhalten 
wir z.B. durch Eingabe von 

% 100 LOGIO (RETURN) 

ais Ergebnis die Gleitkommazahl 2 auf dem Stack. 

EXP und 10 A - Diese beiden FORTH -Kommandos bilden Potenzen der 
Eulerschen Zahl E, bzw. zur Basis 10. Durch Eingabe von 

% 2 10 A (RETURN) 

erhalten wir so z.B. die Gleitkommazahl 100 auf dem Stack. (An- 
merkung: Auf den meisten Mikrocomputer-Tas taturen wird der Pfeil 
r.ach oben auch als Dachlein dargestellt) . 

1 /X und SQR - Mit diesen FORTH-Bef ehlen kann man den Kehrwert 
czw. die Quadra twurzel einer Gleitkommazahl berechnen. Beide Wor- 
ker entfernen eine Gleitkommazahl vom Stack und ersetzen sie 
durch ihren Kehrwert (1/X) bzw. durch ihre Quadratwurzel (SQR). 

S IN, COS , TAN und ATAN - Diese FORTH-Kommandos berechnen die trigo- 
nometrischen Funktionen Sinus, Cosinus, Tangens und Arcus tangens . 
Das Argument dieser Funktionen (die oberste Gleitkommazahl auf 
dem Stack) kann entweder in Winkelgraden Oder im BogenmaB angege- 
oen werden. Dazu gibt es zwei sehr niitzliche FORTH-Worter, nam- 
lich RADIANS und DEGREES. Diese beiden Worter lassen den Stack 
unverandert. Wenn Sie das Kommando DEGREES geben , dann werden die 
Emgaben zu und die Ausgaben von alien trigonometrischen Funktio- 
nen als Winkelgrade interpretiert . Nach Ausfuhrung von RADIANS 
werden die entsprechenden Angaben im BogenmaB eingelesen bzw. 
ausgegeben. 

RND - Dieses Wort entfernt die oberste Gleitkommazahl vom Stack 
and legt statt dessen dort eine Pseudozuf allszahl ab. Die Zu- 
fallszahl ist kleiner Oder gleich der Ausgangszahl , vorausge- 
setzt, die Ausgangszahl war gleich Oder groBer 1 . Die Zuf allszahl 
hat zwar einen ganzzahligen Wert, wird jedoch als Gleitkommazahl 
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gespeichert. Falls die Ausgangszahl auf dem Stack zwischen 0 und 
1 (aber kleiner 1) war, dann ist die Pseudozuf allszahl eine 
reelle Zahl zwischen 0 und 1. Seien Sie vorsichtig, wenn Sie RND 
mit Gleitkommazahlen einsetzen, da sich hier die Ergebnisse von 
RND zusairunen mit Integers unterscheiden (vgl. Abschnitt 2-7). 

Neben den mathematischen Operationen , die - wie die eben bespro- 
chenen - nur ein einziges Argument haben, gibt es naturlich auch 
mehrstellige Operationen. Diese entfernen 2 Gleitkommazahlen vom 
Stack und ersetzen sie durch eine einzige. 

X A Y - Mit diesem FORTH-Wort konnen Potenzen von Gleitkommazahlen 
gebildet werden. X A Y ersetzt zwei Gleitkommazahlen auf dem Stack 
durch eine neue Gleitkommazahl , die sich ergibt , wenn man die 
zweite Ausgangszahl zu einer Potenz erhebt, die durch die erste 
Ausgangszahl angegeben ist. Entsprechend lautet die Stack-Rela- 
tion: 


f 1 f 2 ~> f 1 2 


(5-45) 


ATN2 - Diese Funktion dividiert die zweite Gleitkommazahl auf dem 
Stack durch die erste Gleitkommazahl auf dem Stack und legt dort 
den Arcustangens des Ergebnisses ab. Die beiden Ausgangszahlen 
werden naturlich zuvor vom Stack entfernt. 

Die Gleitkommaoperationen und -funktionen, die wir hier kennenge- 
lernt haben, sind Bestandteil des MMSFORTH-Sys terns . Denken Sie 
daran, daB sie nicht zum Standard von FORTH-79 gehoren und in 
anderen Systemen unter Umstanden etwas anders lauten konnen. 
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5.8 Doppelte Genauigkeit und komplexe Zahlen 


Bieser Abschnitt behandelt Zahlen, deren Speicherung vier Stack- 
rositionen benotigt. Das sind einmal doppelt genaue Gleitkomma- 
zahlen. Die Gleitkommazahlen des letzten Abschnittes sind in der 
Regel auf sechs Stellen genau. Dabei ist die Genauigkeit der Zahl 
nicht von ihrer absoluten GroBe abhangig. So haben z.B. 

1 ,23456 

1 23,456 

0,123456 E15 

allesamt sechs signifikante Ziffern, sie unterscheiden sich aber 
gewaltig in ihrem Betrag. Beim Rechnen mit Gleitkommazahlen erge- 
ren sich in der Regel kleine Fehler, sog. Rundungsfehler . Einige 
Programme fuhren nun eine groBe Menge von arithmetischen Operati- 
onen mit Gleitkommazahlen aus , so daB sich diese Rundungsfehler 
naufen; der einzelne Rundungsfehler mag ohne Bedeutung sein, der 
Pesamteffekt kann sich jedoch durchaus auf die Genauigkeit des 
Ergebnisses bedeutend auswirken. Um mit mehr als sechs Stellen 
Senauigkeit rechnen zu konnen, stellen einige Systeme doppelt 
genaue Gleitkommazahlen zur Verfiigung. In der Darstellung unter- 
scheiden sich solche Zahlen dadurch , daB der Exponent von der 
Mantisse durch den Buchstaben D (und nicht, wie bei einfach ge- 
nauen Zahlen durch E) abgetrennt wird. Bei der Speicherung beno- 
rigen doppelt genaue Gleitkommazahlen vier Stack-Worter , also 
genau doppelt soviel wie die einfach genauen Gleitkommazahlen. 
Deshalb sind Berechnungen mit diesem Zahlentyp auch wesentlich 
langsamer und verbrauchen mehr Speicherplatz . Sie soil ten sich 
deshalb genau uberlegen, ob Sie in Ihrem Programm mit doppelt 
genauen Zahlen arbeiten wollen. Auch ist dieser Datentyp kein 
Bestandteil von FORTH-79, findet sich jedoch in MMSFORTH. 

Beim Eingeben einer doppelt genauen Gleitkommazahl miissen wir den 
Interpreter auf den Datentyp der Zahl hinweisen? dies tun wir, 
indem wir der Zahl die Zeichenfolge D% voranstellen . Erinnern Sie 
sich daran , daB zur Eingabe von einfach genauen Gleitkommazahlen 
das Prozentzeichen dient (vgl. Abschnitt 5-6). Im allgemeinen 
verden FORTH-Worter zur Manipulation von doppelt genauen Gleit- 
kommazahlen gebildet, indem man den Buchstaben D den FORTH-Wdr- 
tern voranstellt, die Berechnungen mit einfach genauen Gleitkom- 
mazahlen anstellen. So ist z.B. DF#IN analog zu F#IN. Die Stack- 
Relation fiir DF#IN lautet: 
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— > 


(5-46) 


Wie Sie sehen konnen , stellen wir in Stack-Relationen eine dop- 
pelt genaue Gleitkommazahl durch "d^" dar. 


5.8.1 Stack-Manipulationen 


Doppelt genaue Gleitkommazahlen benotigen bekanntermaBen vier 
Stack-Positionen. Deshalb braucht man spezielle F0RTH-W5rtern , urn 
mit diesen Zahlen Stack-Manipulationen ausfiihren zu konnen. Die 
Kommandos lauten 4DUP, 4DROP, 4 SWAP und 4ROLL . Sie entsprechen 
den bekannten Kommandos fur einfach genaue Gleitkommazahlen, 
auBer daB die 2 durch eine 4 ersetzt wird. Beispielsweise dupli- 
ziert das Kommando 4DUP die oberste doppelt genaue Gleitkommazahl 
auf dem Stack und hat deshalb folgende Stack-Relation: 


d f -- 


d f d f 


(5-47) 


Es wird also eine Gruppe von vier zusammenhangenden Stack-Wortern 
dupliziert . 

Das FORTH -Kommando 4DROP entfernt die oberste doppelt genaue 
Gleitkommazahl vom Stack. Das bedeutet, daB alle unterhalb lie- 
genden Eintrage um 4 Positionen nach oben wandern. Hier die 
Stack-Relation : 



(5-48) 


Das FORTH -Kommando 4 SWAP vertauscht die beiden obersten doppelt 
genauen Gleitkommazahlen und hat deshalb folgende Stack-Relation: 


d f1 d f2 ■~ > d f2 d f1 


(5-49) 
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Das FORTH-Kommando 40VER dupliziert die zweite doppelt genaue 
Gleitkommazahl auf dem Stack an die erste Position. Dies bedeu- 
tet, daB die funfte bis achte Stack-Zeile noch einmal von Anfang 
an wiederholt werden. Die Stack-Relation ist 


f*\ 1 2 


— > 


d f1 d f2 d f1 


(5-50) 


DF. und DF.R - Diese beiden Kommandos entsprechen den Worten F. 
und F.R. Das Wort DF. dient also zur Ausgabe einer doppelt ge- 
nauen Gleitkommazahl , wobei diese auch noch vom Stack entfernt 
wird. Urn eine solche Zahl in einem Datenfeld mit vorgegebener 
Breite auszugeben, benutzt man das Kommando DF.R, das eine ein- 
fach genaue Integer und eine doppelt genaue Gleitkommazahl vom 
Stack entfernt. Die Integer dient in gewohnter Weise zur Angabe 
der Feldbreite. DF.R erwartet, daB die Integer an erster und die 
auszugebende Gleitkommazahl an zweiter Stack-Position zu finden 
ist. 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
1 2 

13 

14 

15 


( Fakultaetsberechnung mit doppelt genauen Gleitkommazahlen ) 


: DFFACT 1 + 

D% 1 

1 6 ROLL 

SWAP 


DO I 

I-F FDF 

DF* LOOP 

DF. 

i 


ABBILDUNG 5-5: Ein FORTH-Wort zur Berechnung der Fakultat 
mit doppelt genauen Gleitkommazahlen 
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5.8.2 Die Grundrechenarten 


Die FORTH-Worter fur die Addition, Subtraktion, Multiplikation 
und Division mit doppelt genauen Gleitkommazahlen lauten DF+, DF- 
, DF und DF/. Sie entsprechen den bereits bekannten Kommandos 
F+,F-, F* und F/, auBer daB die Operanden jeweils vier Stack- 
Positionen anstelle von zwei beanspruchen . Alle haben sie die 
folgende Stack-Relation gemeinsam: 


fl “f2 


— > d 


ferg 


(5-51 ) 


5.8.3 Typumwandlung 


Auch fur die Umwandlung zwischen einfach genauen und doppelt ge- 
nauen Gleitkommazahlen gibt es spezielle Kommandos in FORTH. Zur 
Umwandlung einer einfach genauen Gleitkommazahl auf dem Stack in 
eine doppelt genaue dient das Kommando FDF. Seine Stack-Relation 
sieht f olgendermaBen aus: 


f — > d 


f 


(5-52) 


Den umgekehrten Weg kann man mit DFF gehen. Dieses Wort entfernt 
eine doppelt genaue Gleitkommazahl vom Stack und legt an ihrer 
Stelle eine einfach genaue Gleitkommazahl dort ab. Das Ergebnis 
wird abgerundet, da es weniger signifikante Stellen aufweisen 
kann. Die Stack-Relation ist 


d f — > f (5-53) 

Das, was wir uber doppelt genaue Gleitkommazahlen kennengelernt 
haben, wollen wir noch einmal verdeutlichen , indem wir das Bei- 
spielprogramm 5-4 neu schreiben (vgl. Abbildung 5-5). Wir gehen 
hier nur auf die Unterschiede zwischen diesen beiden Programmen 
ein. In Zeile 2 benutzen wir anstelle von % das FORTH -Kommando 
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D%. Auf diese Art wird die 1 als doppelt genaue Gleitkommazahl 
auf den Stack gelegt. Ebenso findet sich in Zeile 2 anstelle von 
4 ROLL die Befehlsfolge 6 ROLL. Dies kommt daher , veil eine dop- 
pelt genaue Gleitkommazahl zwei Stack-Posi tionen mehr an Spei- 
cherplatz benotigt , als eine einfach genaue Gleitkommazahl. In 
Zeile 2 wollen wir wieder den Schleif enindex in das passende 
Datenformat umwandeln. Dazu bedienen wir uns zuerst des Kommandos 
I— F . Dadurch erhalten wir eine einfach genaue Gleitkommazahl, die 
wir jetzt mittels FDF in eine doppelt genaue umwandeln. Das rest- 
liche Programm entspricht wei testgehend dem in der Abbildung 5-4, 
auBer daB zur Multiplikation und Ausgabe des Ergebnisses die 
Worter DF* und DF. benutzt werden. 

Eine Handvoll Funktionen fur doppelt genaue Gleitkommazahlen ent- 
spricht den bereits bekannten Funktionen fur einfach genaue Zah- 
len dieses Typs. Sie lauten DFABS, DFMINUS, DFSIGN und DFCOMP. 
Sie entsprechen jeweils den Funktionen FABS » FMINUS, FSIGN und 
FCOMP. Im iibrigen steht eine wesentlich groBere Anzahl mathemati- 
scher Funktionen fur einfach genaue als fur doppelt genaue Gleit- 
kommazahlen zur Verfugung. 


5.8.4 Komplexe Zahlen 

Komplexe Zahlen setzen sich aus einem Realteil und einem Imagi- 
narteil zusammen. MMSFORTH sieht Kommandos vor , mit denen auch 
dieser Zahlentyp manipuliert werden kann. Jede komplexe Zahl 
besteht aus einem Paar einfach genauer Gleitkommazahlen. Deshalb 
belegen auch komplexe Zahlen 4 Stack-Positionen , weswegen man zur 
Stack-Manipulation bei diesem Datentyp die Kommandos 4DUP, 4DROP, 
4 SWAP und 40VER heranziehen kann. 

Man signalisiert dem FORTH-Interpreter durch die Zeichenfolge 
CP\, daB eine komplexe Zahl eingegeben werden soil. Umgekehrt 
sorgt das FORTH-Wort CP- dafiir, daB eine komplexe Zahl vom Stack 
entfernt und ausgegeben wird. Dabei wird davon ausgegangen , daB 
der Imaginarteil der Zahl zuoberst auf dem Stack liegt, gefolgt 
vom Realteil. 

Zum Beispiel erreicht man durch Eingeben von 
CP% 5 7 CP. (RETURN) 
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daJ3 folgendes ausgegeben wird: 

(5,7) 

Fur die Arithmetik mit komplexen Zahlen stehen die Worter CP+, 
CP- , CP* und CP/ zur Verfugung. Alle vier entfernen zwei komplexe 
Zahlen vom Stack und ersetzen diese durch das Ergebnis (die Sum- 
me, Differenz, das Produkt Oder den Quotienten) . Ihre Stack-Rela- 
tion lautet daher: 


>1 p2 


— > c 


perg 


(5-54) 


Wie Sie sehen konnen , stellen wir komplexe Zahlen in den Stack- 
Relationen mittels "c " dar. Denken Sie daran, dafi auch dieser 
Datentyp vier Stack-pEsi tionen benotigt. 

Die Worter MAG und PHASE entfernen eine komplexe Zahl vom Stack 
und ersetzen sie durch eine einfach genaue Gleitkommazahl , die 
entweder gleich dem Betrag Oder der Phase (dem Winkel) der kom- 
plexen Zahl ist. Bei der Darstellung der Phase kann man zwischen 
Winkelgraden und Bogengraden wahlen. Dies erreichen Sie, indem 
Sie auf die bereits bekannten Worter DEGREES oder RADIANS zuruck- 
greifen (vgl. Abschnitt 5-6). 

Die Worter R-P und P-R dienen dazu , komplexe Zahlen von einem 
Darstellungsformat ins andere umzuwandeln. Bei Ausftihrung von R-P 
sollte die komplexe Zahl, die an oberster Stack-Position steht, 
in cartesischen Koordinaten gegeben sein, wobei sich der Imagi- 
narteil an oberster Stack-Position befindet. R-P ersetzt diese 
Zahl durch ihre Darstellung in Polarkoordinaten (d.h., Betrag und 
Winkel). Dabei wird der Winkel an oberste Stack-Position gelegt. 
Der Realteil und Imaginarteil bei der cartesischen Darstellung 
bzw. der Betrag und der Winkel bei der Polardarstellung sind 
jeweils einfach genaue Gleitkommazahlen. Sie sollten hier mit 
Vorsicht vorgehen. Es gibt ja keine Moglichkeit, nur durch Inspi- 
zieren des Stacks f estzus tellen , welche Art von Zahlen auf ihm 
gespeichert sind. So kann man z.B. eine einzelne komplexe Zahl 
nicht von vier einfach genauen Integers unterscheiden . Die mathe- 
matischen Operationen CP+ , CP-, CP* und CP/ nehmen allesamt an, 
daB ihre Argumente, die komplexen Zahlen, in cartesischer Form 
gegeben sind (also in der Form Realteil, Imaginarteil). Deshalb 
sollte man die Umwandlungsfunktionen P-R und R-P nur bei der Ein- 
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Ausgabe von Daten anwenden, um hier zwischen diesen beiden Dar- 
stellungsmoglichkeiten wahlen zu konnen. 

Noch zwei weitere FORTH-Worter sind im Zusammenhang mit komplexen 
Zahlen verfiigbar: CPMINUS und CONJ. Diese ersetzen jeweils eine 
komplexe Zahl an oberster Stack-Position durch ihren negativen 
Wert (CPMINUS) bzw. durch ihre komplex konjugierte Zahl (CONJ). 


5 - 9 Obungsauf gaben 


In vielen der folgenden Obungsauf gaben werden Sie gebeten, FORTH- 
Worter oder Programme zu schreiben. Uberpriifen Sie Ihre Ergebnis- 
se auf Ihrem eigenen Computer. Achten Sie darauf , die Definitio- 
nen moglichst kurz zu halten, indem Sie eine komplizierte Aufgabe 
m mehrere Unterworter "aufbrechen" (Modularisierung) . 


5-1 Erortern Sie den Unterschied zwischen einfach genauen und 
doppelt genauen Integers. 

5-2 Wiederholen Sie Aufgabe 4-8 mit doppelt genauen Integers. 

5-3 Wiederholen Sie Aufgabe 4-9 mit doppelt genauen Integers. 

5-4 Wiederholen Sie Aufgabe 5-3, lassen Sie das Programm jetzt 
aber abbrechen , wenn die Summe groBer 200 000 wird. 

5-5 Wiederholen Sie Aufgabe 4-13 mit doppelt genauen Integers; 
lassen Sie das Programm mit einer Fehlermeldung abbrechen, 
wenn das Produkt eine Million iibersteigt. 

5-6 Wiederholen Sie Aufgabe 4-11 mit doppelt genauen Integers, 
und geben Sie das Ergebnis in einem 20 Zeichen breiten 
Datenfeld aus . 

5-7 Schreiben Sie ein FORTH-Wort , das die Funktion 
ab/(c+d) 

moglichst genau berechnet. Die Variablenwerte a, b, c und d 
sollen auf dem Stack zur Verfilgung gestellt werden. 
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5-8 Wiederholen Sie Aufgabe 5-7 mit doppelt genauen Integers. 

5-9 Schreiben Sie ein FORTH-Wort, das unter Verwendung von dop- 
pelt genauen Integers den Punktedurchschnitt eines Studenten 
in fiinf Pruf ungen berechnet. Der Durchschnittswert soil mit 
dreistelliger Genauigkeit hinter dem Dezimalpunkt ausgegeben 
werden. Vergessen Sie nicht, das Dezimalkomma zu drucken ! 

5-10 Schreiben Sie ein FORTH-Wort zur Berechnung der Verkaufer- 
Provision nach folgender Vorschrift: Bei Umsatzen bis 10 000 
DM betragt die Provision 10%, bei Umsatzen zwischen 10 000 

und 50 000 DM betragt die Provision 15%. Ubersteigen die 

Umsatze 50 000 DM, so erhalt der Verkaufer 18% Provision. 
Das FORTH-Wort soil die Summe der einzelnen Verkaufe berech- 
nen und darauf basierend den Provisionsbetrag . Das Ergebnis 
soli als Geldbetrag ausgegeben werden, d.h., die Zeichenfol- 
ge DM und ein Dezimalkomma miissen an passender Stelle er- 
scheinen. AuBerdem soli ten Sie Tausenderstellen im Betrag 
durch ein Leerzeichen von den restlichen Ziffern abteilen. 
Sie konnen davon ausgehen , daB der Provisionsbetrag des Ver- 
kaufers 100 000 DM nicht ubersteigt. Arbeiten Sie mit dop- 
pelt genauen Integers. Versuchen Sie, Ihr Programm zu modu- 
larisieren, d.h., die Losung in mehrere FORTH-Worter aufzu- 
teilen. 

5-1 1 Schreiben Sie ein Programm zur Berechnung der pythagore- 
ischen Zahlentripel mit doppelt genauen Integers. 

5-12 Schreiben Sie ein FORTH-Wort zur Berechnung des folgenden 
Ausdrucks : 

ab/(c+d) + e 

wobei a, b, c, d und e Integers sind. Die Zwischenergebnisse 
Ihrer Berechnungen sollten in doppelter Genauigkeit abgelegt 
werden. 

5-13 Erortern Sie die Vorteile von Rechenoperationen im gemisch- 
ten Modus . 

5-14 Was bedeutet der Ausdruck " vorzeichenlose Integer"? 

5-15 Kann auch eine vorzeichenlose Integer von doppelter Genauig- 
keit sein? 
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5-16 Schreiben Sie ein FORTH-Wort zur Berechnung der pythagore- 
ischen Zahlentripel mit vorzeichenlosen einfach genauen 
Integers . 

5-17 Wiederholen Sie Aufgabe 5-16, arbeiten Sie diesmal jedoch 
mit doppelt genauen Integers. Uberlegen Sie sich genau, wie 
Sie die Daten ausgeben. 

5-18 Erortern Sie die Funktionsweise der FORTH -Kommandos AND, OR 
und XOR. Schreiben Sie eigene Programme mit diesen Worten. 

5-1 9 Legen Sie den Unterschied zwischen Gleitkommazahlen und 
ganzen Zahlen dar. 

5-20 Wiederholen Sie Aufgabe 5-10 mit Gleitkommazahlen anstelle 
von Integers . 

5-21 Wiederholen Sie Aufgabe 5-11 mit Gleitkommazahlen. 

5-22 Wiederholen Sie Aufgabe 5-20 mit doppelt genauen Gleitkomma- 
zahlen. 

5-23 Wiederholen Sie Aufgabe 5-21 mit doppelt genauen Gleitkomma- 
zahlen. 

5-24 Schreiben Sie ein FORTH-Wort zur Berechnung des folgenden 
Ausdrucks 

(a+b)c/d 

wobei a, b, c und d komplexe Zahlen sind. 
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m alien Be ispielprogr amine n dieses Buches wurden Daten auf den 
Stack ubergeben. Dies ist guter FORTH-Programmierstil , da es 
izeicherplatz spart und dafiir sorgt, dafi Programme schneller lau- 
:er. Manche Aufgabenstellungen erfordern jedoch eine andere Spei- 
: zerungsmethode , die fur den Programmierer bequemer ist. Stellen 
. : ir sich nur einmal vor, Sie wollen eine Konstante in einem Pro- 
tranm mehrfach verwenden. Vor allem dann , wenn diese Konstante 
-ale Stellen aufweist, ist es auBerst miihselig, sie jedesmal 
r.r.zugeben, wenn Sie sie brauchen. FORTH gibt Ihnen die Moglich- 
eit, solchen Konstanten symbolische Namen zuzuweisen und sie im 
-rrei tsspeicher des Rechners abzulegen. Nachdem ein Name fur die 
Cmstante vereinbart ist, kann man einfach den Namen anstelle des 
z.rstantenwerts in den Programmen eingeben. Andere Anwendungen 
erfordern den Einsatz von sog. Variablen , also GroBen, deren 
•-arte im Programm erst berechnet werden. Natiirlich kann man 
Cliche Variable auch auf dem Stack speichern. Verwendet ein Pro- 
zramm aber sehr viele Variable, dann ist es fur den Programmierer 
re hr umstandlich, liber jede dieser Variablen auf dem Stack Buch 
z _ fuhren. FORTH stellt auch hier Losungsverf ahren bereit, mit 
zer.en Variable benannt und im Arbeitsspeicher des Computers ge- 
rzeichert werden konnen. Mit einem einfachen Verf ahren kann der 
7rcgrammierer die Variablenwerte in seinem Programm erreichen, 
-r.iem er auf sie iiber den Variablennamen zugreift. Auch ist es 
=enr einfach, den Wert einer Variablen zu andern. Wir konnen also 
amen Variablenwert berechnen, im Speicher ablegen, diese Varia- 
zle in Berechnungen einsetzen, anschlieBend den Wert der Varia- 
zlen ver andern und den ganzen ProzeB wiederholen. Diesem Verf ah- 
ren gilt unsere Aufmerksamkeit im vorliegenden Kapitel. 

:ft arbeiten Programme mit ganzen Gruppen solcher Variablenwerte. 
lies kann z.B. no tig sein, wenn wir fiir alle Teilnehmer eines 
urses die Punktzahl in Priifungen ausrechnen. Zwar ist es mog- 
-ich, fiir jeden Teilnehmer das Programm getrennt laufen zu las- 
sen; gerade dann, wenn in der Klasse viele Schuler sind , ist das 
.'erf ahren aber viel zu umstandlich. Wir werden Ihnen in diesem 
rapitel zeigen, wie solche Variablengruppen zu sog. Arrays zusam- 
rengefaBt werden konnen und wie man auf eine einfache und elegan- 
te Weise mit diesen in Programmen arbeitet. Doch zunachst stellen 
vir Ihnen die Konstanten vor. 
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6.1 Konstanten 


Wir werden jetzt ein Verfahren diskutieren, mit dem Konstanten im 
Arbeitsspeicher des Computers unter einem beliebigen, frei wahl- 
baren Namen gespeichert werden konnen. Sie konnen dann diese 
Konstante auf den Stack bekommen , indem Sie einfach ihren Namen 
eingeben. Konstanten sind Werte , die sich wahrend der Ausfiihrung 
des Programms nicht andern. Es gibt zwar Moglichkeiten zur Ande- 
rung eines Konstantenwerts wahrend des Programmlauf s ; ihre Hand- 
habung ist jedoch umstandlich, und wir raten von ihrem Gebrauch 
ab. Wenn Sie in Ihren Berechnungen sich verandernde Werte unter 
bestimmten Namen abspeichern wollen , dann sollten Sie dies iiber 
Variable tun. Will man den Wert einer Konstanten in einem Pro- 
gramm andern, so kann man dies durch Edieren des Programms er- 
reichen. Dariiber spater mehr in diesem Kapitel. 

CONSTANT - Zum Definieren einer Konstante dient das FORTH-Wort 
CONSTANT. Wir benutzen es in folgender Form: 


3600 CONSTANT H/S (RETURN) (6-1) 


Damit haben wir der Konstante mit dem Namen H/S den Wert 3600 
zugewiesen. Wir konnen jetzt uberall dort , wo wir den Wert 3600 
benotigen, auch den Namen H/S einsetzen. Bei Ausfiihrung des 
FORTH-Befehls CONSTANT wird die einfach genaue Integer an ober- 
ster Stack-Position - in unserem Beispiel 3600 - vom Stack ent- 
fernt und im Worterbuch des Systems gespeichert, welches sich im 
Arbeitsspeicher des Computers befindet. Als Name fur die Konstan- 
te wird der Ausdruck verwendet, der unmittelbar auf den Befehl 
CONSTANT folgt. Die Stack-Relation lautet: 


n — > 


( 6 - 2 ) 


Als Beispiel sehen Sie in Abbildung 6-1 ein FORTH-Wort zur Um- 
wandlung von Stunden in Sekunden. Zeile 1 definiert die Konstante 
H/S so, wie Sie es aus Beispiel 6-1 kennen. In Zeile 2 wird ein 
neues FORTH-Wort vereinbart, das den Namen STD/SEC tragt. Dieses 
Wort soil nichts anderes machen , als die Integer an oberster 
Stack-Position mit 3600 zu multiplizieren . Wir wollen also den 
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3600 auf den Stack legen; dies konnten wir naturlich errei- 
r.:, indem wir ihn hinschreiben . Statt dessen benutzen wir je- 
die Konstante H/S. Dieses Beispiel ist zwar sehr einfach, 
_L5t jedoch die grundlegenden Prinzipien beim Einsatz von Kon- 
f-.=r:ten erkennen. Eine Konstante wird nicht als Teil einer Wort- 
iTim ition vereinbart. Sie miissen sie definieren, ehe Sie sie in 
T.r.em Programm einsetzen konnen. 


0 ( Beispiel fuer den Einsatz von Konstanten ) 

1 3600 CONSTANT H/S 

2 : STD/SEC H/S * 

3 

4 

ABBILDUNG 6-1 : Ein Beispiel fur den Einsatz von Konstanten 


den Einsatz von Konstanten gibt es mehrere Griinde . Einer ist, 
i=B Konstanten leichter (kurzer) zu schreiben sind als Zahlen. 
Iir. weiterer Grund besteht darin , daB man sich den Namen einer 
tens tan te leichter merken kann als die Zahl selbst. (Denken Sie 
z.H. an die Kreiszahl "pi" mit ihrem Wert von 3,1415...) Ein wei- 
zerer Grund besteht darin, daS man eine Konstante leicht andern 
cann , ehe man das Programm laufen laBt. Nehmen Sie z.B. einmal 
=r. , Sie haben ein Programm geschrieben, das Zinsberechnungen 
ausfiihrt. In diesem Programm kommt der Zinssatz, mit dem gearbei- 
zet werden soil, mehrfach vor. Wenn Sie jetzt den Zinsbetrag als 
Zahl in Ihr Programm mi tauf genommen haben und er andert sich, 
iann mussen Sie muhselig von Hand jedes Vorkommnis des Zinsbe- 
trags abandern. Anders, wenn Sie eine Konstante benutzen. Dort, 
•c in der ersten Version der tatsachliche numerische Betrag des 
Imssatzes stand, steht jetzt nur eine Konstante. Andert sich der 
Zinssatz, dann brauchen Sie vor Ausfiihrung des Programms ledig- 
lich die Konstante zu andern und haben sonst keine Arbeit mehr! 
Nicht zuletzt kann - gerade in Fallen wie dem eben geschilderten 
- die Verwendung von Konstanten mit dazu beitragen, dafi Speicher- 
clatz in den Programmen eingespart wird und diese schneller lau- 
fen . 

2 CONSTANT - Naturlich kann man auch Konstanten mit doppelt genau- 
en Integers definieren. Dazu dient das FORTH-Wort 2CONSTANT. 
Dieses verwendet man genauso wie das bereits bekannte CONSTANT, 
auBer daB jetzt eine doppelt genaue Zahl definiert wird. 
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65535. 2 CONSTANT MEMSIZE (RETURN) 


(6-3) 


Jetzt konnen Sie in Ihren Programmen die Konstante MEMSIZE an- 
stelle der doppelt genauen Integer 65535. schreiben. Die Stack- 
Relation fur 2CONSTANT lautet: 


d — > (6-4) 

Denken Sie daran, da£ in vielen FORTH- Systemen erst spezielle 
Programmblocke geladen werden miissen, ehe Sie mit doppelt genauen 
Integers arbeiten konnen. 


6.1.1 Gleitkoomakonstanten 


Wenn Ihr FORTH- System mit Gleitkommazahlen rechnen kann, dann 
wird es hochstwahrscheinlich auch uber die Moglichkeit verfiigen, 
Gleitkommakonstanten zu definieren. Wir stellen hier die Worter 
dar, die im MMSFORTH dafiir zur Verfugung stehen. Um sie benutzen 
zu konnen , miissen Sie jedoch den Programmteil fur Gleitkomma- 
arithmetik laden. Denken Sie noch einmal daran, dafi es keinen 
FORTH- Standard fur Gleitkommazahlen gibt, so da£ die notigen Be- 
fehle von System zu System unterschiedlich lauten konnen. Fur das 
MMSFORTH-System sind hier die Worter 2CONSTANT und 4CONSTANT ma£- 
geblich. Sie arbeiten mit einfach bzw. doppelt genauen Gleitkom- 
mazahlen , welche Sie vom Stack entfernen und im Lexikon unter dem 
angegebenen Namen speichern. Diese beiden Worter werden analog 
wie in Beispiel 6-1 bzw. 6-3 eingesetzt. Das Wort zur Definition 
einer einfach genauen Gleitkommakonstanten ist das gleiche wie 
das fiir doppelt genaue Integers. Warum dies so ist, geht aus den 
Ausfuhrungen von Abschnitt 2-4 hervor. 
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6.2 Variable 


line Variable ist ein Wert, der erst zum Zeitpunkt der Programm- 
ausfiihrung berechnet wird. Oftmals kommt es vor , daB dieser Wert 
an verschiedenen Stellen in einem FORTH-Wort benotigt wird, Oder 
daB auch andere FORTH-Worter diesen Wert benutzen wollen. Es ist 
muhselig, den Wert auf den Stack zu speichern und sich stets dar- 
Iber im klaren zu sein, wo er sich gerade befindet. Deshalb er- 
laubt es FORTH, solchen Variablen Namen zu geben und sie an ande- 
rer Stelle im Arbeitsspeicher abzulegen. In diesem Punkt ahneln 
die Variablen den im letzten Abschnitt besprochenen Konstanten. 
Is gibt jedoch einen wesentlichen Unterschied: Variable in FORTH 
sind so ausgelegt, daB man ihren Wert mit moglichst wenig Aufwand 
andern kann. Im Unterschied dazu haben die Entwickler von FORTH 
bei den Konstanten darauf geachtet, daB man moglichst schnell auf 
ihren Wert zugreifen kann. 

VARIABLE - Mit dem FORTH-Wort VARIABLE wird Speicherplatz fur 
erne einfach genaue Integer im Arbeitsspeicher des Computers re- 
serviert und fur diesen ein Name vereinbart. Es wird diesem 
Speicherplatz jedoch noch kein Wert zugewiesen. Darin unterschei- 
det sich VARIABLE von dem FORTH-Befehl CONSTANT, der ja nicht nur 
Speicherplatz reserviert und mit einem Namen versieht, sondern 
auch einen festen Wert dort ablegt, welcher sich dazu auf dem 
Stack befinden muB. Ein Beispiel fur den Befehl VARIABLE: 


VARIABLE KEE (RETURN) 


(6-5) 


Dadurch wird im Worterbuch des Computers Speicherplatz fur eine 
einfach genaue Integer reserviert. Dieser Speicherplatz erhalt 
den Namen KEE. Trifft das FORTH-System von jetzt an auf den Namen 
KEE, dann legt es die Adresse dieser Variablen auf den Stack. 

! und@ - Mit dem FORTH-Wort ! speichert man einen Wert an einer 
bestimmten Adresse ab. Meistens hat man fur diese Adresse mit dem 
FORTH-Wort VARIABLE zuvor einen Namen vereinbart. Wenn wir z.B. 
wie in (6-5) eine Variable KEE vereinbart haben, dann konnen wir 
dieser jetzt den Wert 234 zuweisen, indem wir folgendes eingeben: 


21 1 


234 KEE I 


( 6 - 6 ) 
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Wenn das FORTH-System auf den Variablennamen KEE stoBt, dann 
pusht es die Adresse dieser Variablen auf den Stack. Der Befehl ! 
nimmt sich diese Adresse von KEE und den Wert 234 und entfernt 
sie vom Stack. AnschlieBend speichert er die 234 an der angegebe- 
nen Adresse. Das Wort ! hat folgende Stack-Relation: 


n a --> (6-7) 

Wir verwenden also in Stack-Diagrammen zur Darstellung von Spei- 
cheradres sen den Buchstaben "a". Wenn der Variablen KEE vor 
Ausfuhrung von (6-6) bereits ein Wert zugewiesen worden war, dann 
ist dieser jetzt verloren. Nach Ausfuhrung von (6-6) hat die 
Speicheradresse mit dem Namen KEE unwiderruf lich den Wert 234, 
egal , was sich dort zuvor bef unden haben mag. 

Mit dem FORTH-Kommando § besorgen wir uns den Wert einer Varia- 
blen und legen ihn auf den Stack. Wir gehen wieder davon aus, daB 
soeben (6-6) ausgefiihrt und damit der Variablen KEE der Wert 234 
zugewiesen worden ist. Wir wollen uns jetzt ansehen , welchen Wert 
KEE hat und dazu den Wert auf den Stack bekommen. Dies konnen wir 
folgendermaBen bewerkstelligen: 


KEE @ 


( 6 - 8 ) 


Der Befehl hat folgende Stack-Relation: 
a — > n 


(6-9) 


Er funktioniert folgendermaBen: 


§ entfernt die oberste Zahl vom Stack und behandelt sie als eine 
Speicheradresse. Der Wert, der unter dieser Adresse abgespeichert 
ist, wird als nachstes auf den Stack gelegt und ersetzt dort die 
urspriingliche Adresse. Diese Operation andert nichts am Wert der 
Variablen, d.h. , KEE hat vor und nach Ausfuhrung von (6-8) unver- 
andert den Wert 234. 

Wir wollen den Einsatz von Variablen jetzt an unserem bereits 
bekannten Beispiel mit den pythagoreischen Zahlentripeln demon- 
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strieren (vgl. Ab. 6-2). Wir wollen dieses Programm mit dem in 
Abbildung 4-7 vergleichen, bei dem alle Werte auf dem Stack ge- 
speichert waren. 


0 (Pythagoreische Zahlentripel mit Variablen) 

1 VARIABLE A VARIABLE B VARIABLE C 

2 VARIABLE A1 VARIABLE B1 VARIABLE Cl 

3 : PT 15 .R ; 

4 : SQUARE DUP * ; 

5 : VPYTHTRIP CR 1 00 1 DO I DUP SQUARE A 1 A1 ! 

6 100 I DO I DUP SQUARE B i B1 i 

7 142 I DO I DUP SQUARE Cl Cl i 

8 A@B@+C@- DUP 0= IF 

9 A1 @ PT B1 @ PT Cl @ PT CR 

10 THEN 0< IF LEAVE THEN 

1 1 LOOP 

1 2 LOOP 

1 3 LOOP ? 

14 
1 5 

ABBILDUNG 6-2: Berechnung py thagoreischer Zahlentripel 

mit Variablen 


In den ersten beiden Zeilen der Abbildung 6-2 vereinbaren wir 
sechs Variable mit den Namen A,B,C,A1,Bl und Cl. Nachdem wir uns 
in Zeile 3 und 4 die Worter PT und SQUARE definiert haben, sind 
alle notigen Vorbereitungen abgeschlossen. Wenden wir uns jetzt 
dem eigentlich interessanten Wort zu , das auf Zeile 5 beginnt und 
den Namen VPYTHTRIP tragt. Das einleitende CR steht hier aus 
asthetischen Grunden , um die Lesbarkeit unserer Ergebnisse zu 
steigern. Wieder haben wir es mit drei ineinander geschachtelten 
Schleifen zu tun. Die aubere wird 1 OOmal durchlaufen, wobei zu- 
erst der Schleifenindex auf den Stack gelegt und dupliziert wird. 
Als nachstes rufen wir das Wort SQUARE. Jetzt enthalt der oberste 
Stack-Eintrag das Quadrat des auBersten Schleifenindex, wahrend 
der zweite Stack-Eintrag den Index selbst enthalt. Nach Ausfuh- 
rung von A und ! wird der oberste Stack-Eintrag in der Variablen 
A gespeichert. Diese enthalt nun also das Quadrat des Laufindex 
der auBersten Schleife. Xhnlich speichern wir uns durch die 
Befehlsfolge A1 und ! in der Variablen Al den Index der auBeren 
Schleife. Nach Ausfiihrung von Zeile 5 ist der Stack leer. Die 
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Zeilen 6 und 7 wiederholen im wesentlichen dieselben Schritte wie 
die Zeile 5. Das bedeutet, daB nach Ausfiihrung dieser beiden 
Zeilen die Variablen B und B1 das Quadrat sowie den Index der 
mittleren Schleife enthalten. SchlieBlich speichern wir in C und 
Cl auch noch die entsprechenden GroBen fur die innerste Schleife. 
In Zeile 8 wird der Wert der Variablen A und B auf den Stack 
gelegt und anschlieBend mittels +^addi^rt. Der Stack enthalt nun 
an oberster Stelle den Wert von a + b . Diesen vergleichen wir 
mit ^em W^rt v^n C, indem wir C ausfiihren. Um herauszuf inden , 
ob a z + b z = c gilt, subtrahieren wir den Wert von C mittels 
Diese Differenz duplizieren wir und unterwerfen sie dann einem 
Vergleich mittels 0=. Fallt der Vergleich positiv aus , d.h., das 
Flag vom Stack ist "wahr" , dann besorgen wir uns den Wert der 
Variablen A1 ,B1 und Cl aus dem Arbeitsspeich^r un^ geb^n ihn aus. 
Ansonsten uberprufen wir, ob der Wert von a + b - c kleiner 0 
ist. Ist dies der Fall, dann verlassen wir die innerste Schleife. 
Wie Sie sehen, benutzen wir hier den gleichen Algorithmus wie in 
Abbildung 4-7. Beachten Sie, daB die Variablenvereinbarung kein 
Teil der Wortdef inition ist. Variable miissen stets definiert wer- 
den, ehe man sie in einem Wort einsetzen kann . 

Variable machen dem Programmierer das Leben wesentlich angeneh- 
mer. Wie Sie an dem Beispiel in Abbildung 6-2 sehen konnen , muB 
man sich beim Programmieren mit Variablen um wesentlich weniger 
Details kummern , als es bei dem vergleichbaren Programm in Abbil- 
dung 4-7 notig war. Dieser Vorteil muB jedoch mit einem Nachteil 
erkauft werden: Programme mit Variablen benotigen in der Regel 

eine langere Ausfuhrungszei t als solche, die nur mit dem Stack 
arbeiten. Dies kommt daher , weil zum Speichern und Wiederauf fin- 
den der Variablenwerte zusatzliche Operationen notig sind. Diese 
wollen wir jetzt darlegen. Wenn Sie eine Variable definieren, 
dann wird diese in das Lexikon von FORTH mit aufgenommen. Aller- 
dings unterscheidet sich der Worterbucheintrag einer Variablen 
von dem fur ein Wort (vgl. Abschnitt 2-4). Der Worterbucheintrag 
fur ein Wort enthalt ja neben dem Namen auch noch die Instruktio- 
nen, die seine Definition ausmachen; der Worterbucheintrag fur 
eine Variable reserviert lediglich Speicherplatz fur diese Varia- 
ble. Wenn FORTH auf einen Variablennamen stoBt, dann legt es die 
Adresse des Worterbucheintrags dieser Variablen auf den Stack. 
Der Befehl ! nimmt diese Adresse und die nachste Zahl auf dem 
Stack und speichert die Zahl an der angegebenen Adresse. Xhnlich 
entfernt @ eine Zahl vom Stack und interpretiert diese als die 
Adresse der Variablen, deren Wert auszugeben ist. 
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Variablenadressen werden intern als vorzeichenlose einfach genaue 
Integers gespeichert. Den Befehlen ! oder @ muB deshalb nicht un- 
oedingt ein Variablenname vorausgehen. Wenn der Programmierer die 
fragliche Adresse genau kennt , dann kann er sie direkt als vor- 
zeichenlose Integer eingeben. 

All diese einzelnen Arbei tsschritte verlangsamen das Programm. 
Die Worterbuchsuche braucht ihre Zeit, ebenso das Aufsuchen von 
Adressen und Speichern von Zahlen an diesen Adressen. Wenn also 
alle anderen Umstande gleich sind , dann lauft em FORTH -Programm 
ohne Variable schneller als eines , das Variable verwendet. Das 
Programm aus Abbildung 4-7 lauft so z.B. 1,35mal schneller als 
das Programm in Abbildung 6-2. 

FORGET - Dieses bereits aus Kapitel 2-4 bekannte Wort kann fur 
Variable genauso verwendet werden wie fur normale FORTH-Wor ter . 

+ ! - Oftmals kommt es vor , daB wir auf eine Variable einen be- 
stimmten Integerwert addieren wollen. Wir konnten dazu die Varia- 
ble holen, die beiden Zahlen addieren und anschlieBend die Summe 
wieder speichern, es gibt jedoch ein einziges FORTH-Wort, das all 
diese Schritte ausfuhrt. Dieses lautet +! und macht folgendes: 
Der zweite Stack-Eintrag , eine einfach genaue Integer, wird zum 
Wert der Variablen hinzuaddiert , deren Adresse sich an oberster 
Stack-Position befindet. Beide - Variablenadresse und Integer - 
werden vom Stack entfernt. 


6.2.1 Variable und doppelt genaue Integers 


Es ist auch moglich, doppelt genaue Integerwerte in Variablen ab- 
zulegen. In den Einzelheiten funktionieren die dazu dienenden 
Worter ahnlich wie die fur einfach genaue Integers. 

2 VAR I ABLE - Das FORTH-Wort 2 VARIABLE ist ahnlich wie VARIABLE, 
reserviert aber im Worterbuch Speicherplatz fur eine doppelt 
genaue Integer. Mit 


2VARIABLE KEY 


( 6 - 10 ) 
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richten Sie also einen Worterbucheintrag ein, der den Namen KEY 
hat und eine doppelt genaue Integer aufnehmen kann. 

2! und 20 - Dieses sind die FORTH-Kommandos fur das Speichern 
(21) und Wiederfinden (20) von Variablen bzw. ihren Werten. Das 
Wort 2! hat die Stack-Relation 


d a — > 


( 6-11 ) 


Die Stack-Relation fur 2 0 lautet: 


a — > d 


( 6 - 12 ) 


Denken Sie daran , dafl in Stack-Relationen "a" zur Darstellung 
vorzeichenloser einfach genauer Integers dient, wahrend mit "d" 
eine doppelt genaue Integer signalisiert wird. 


6.2.2 Variable und Gleitkommazahlen 


Das MMSFORTH-System und andere FORTH-Systeme erlauben es auch , 
Gleitkommazahlen in Variablen zu speichern. Wir stellen diese 
Moglichkeiten dar , mochten Sie aber noch einmal daran erinnern, 
daS die zugehorigen Worter nicht standardisiert sind. Fur die 
Arbeit mit einfach genauen Gleitkommazahlen verwendet man diesel- 
ben FORTH-Kommandos wie bei doppelt genauen Integers, also 2VA- 
R I ABLE, 2! und 20. 

Beim Einsatz mit Gleitkommazahlen schreiben wir die Stack-Rela- 
tionen fur 2! und 20 in folgender Form: 


f a — > 


( 6- 1 3a) 


und 


a — > f 


( 6- 1 3b ) 
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Wenn Sie doppelt genaue Gleitkommavariable benotigen, dann brau- 
chen Sie nur Kommandos zu geben, die denen fur einfach genaue 
Variable entsprechen, auBer daB anstelle einer 2 eine 4 steht. 
Wir haben also die Worter 4 VAR I ABLE , 4! und 4@. Die Stack-Rela- 
tionen fur 4! und 4@ lauten: 


a — > 


und 


a — > d f 


( 6-1 4a) 


( 6- 1 4b ) 


6 . 3 Arrays 


Viele Programme fuhren wiederholte Berechnungen mit einer ganzen 
Liste von Variablen aus. Wir haben gesehen, daB iiber Programm- 
schleifen das Wiederholen von Berechnungen drastisch vereinfacht 
wird. Jetzt werden wir ein wei teres Verfahren kennenlernen , das 
solche Prozeduren vereinfacht, falls Variablenlis ten mit ins 
Spiel kommen sollen. In der Sprache der Programmierer nennt man 
diese Variablenlisten auch Arrays . 

Aus den letzten Abschnitten wissen Sie, daB durch die Deklaration 
einer Variablen (durch das Wort VARIABLE Oder andere) Speicher- 
platz im Arbeitsspeicher des Computers reserviert wird. Dies wol- 
len wir jetzt etwas genauer untersuchen. In einem typischen Heim- 
oder Personal Computer werden einfach genaue Integers in 16 Bit 
gespeichert. Da man in der EDV ublicherweise eine Gruppe von 8 
Bit zu einem Byte zusammenf aBt , kann man sagen , daB zur Spei- 
cherung von einfach genauen Integers zwei Byte benotigt werden. 
Pur doppelt genaue Integers braucht man entsprechend vier Byte. 
'Jblicherweise haben die Speicherworter eines Computers (die 
<leinste vom Computer adressierbare Einheit im Arbeitsspeicher) 
ebenfalls eine GroBe von einem Byte, weswegen wir dies auch hier 
in unseren Ausfiihrungen annehmen wollen. Auch wenn Ihr Computer 
groBere Speicherworter benutzen sollte, dann gelten die grundle- 
genden Darlegungen dieses Kapitels dennoch. Wenn wir eine Varia- 
ble deklarieren (vergleiche (6-5)), dann werden fur den aufzuneh- 
menden Wert dieser Variablen in Ihrem Worterbucheintrag zwei 
3ytes reserviert. Wir konnen dort jetzt eine einfach genaue 
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Integer speichern. Wenn es uns nun gelange, fur diese Variable 
einen Speicherplatz von 100 Byte zu reservieren, dann konnte man 
50 einfach genaue Integers unter diesem Variablennamen ablegen. 
Wir zeigen Ihnen jetzt, wie man den reservierten Speicherplatz 
fur einen Variableneintrag im Worterbuch vergroBern kann und wie 
man eine groBe Anzahl von Variablenwerten in diesen Speicherplatz 
schreiben bzw. aus diesem Speicherplatz holen kann. 

ALLOT - Das FORTH-Wort ALLOT holt sich die oberste einfach genaue 
Integer vom Stack und erweitert den Speicherplatz des zuletzt 
definierten Wortes um die entsprechende Anzahl von Bytes. Die 
Anzahl von Bytes, um die diese Variable erweitert wird , ent- 
spricht also der Integer, die ALLOT vom Stack holt. Betrachten 
Sie dazu diese Kommandof olge: 


VARIABLE KEE (6-1 5a) 

40 ALLOT (6-1 5b) 


Nach Aus fiih rung von 6-1 5a enthalt der Worterbucheintrag fur die 
Variable KEE zwei Byte, die zur Aufnahme der Variablenwerte be- 
stimmt sind. Nach Ausfiihrung von (6-1 5b) haben wir jedoch insge- 
samt 42 Byte an Speicherplatz unter dem Variablennamen KEE zur 
Verfugung. Zwei Byte wurden bereits bei Deklaration der Variablen 
(6-1 5a) zugewiesen, wahrend das FORTH-Wort ALLOT in (6-1 5b) dafilr 
sorgt, daB 40 weitere Byte hinzukommen . Die Stack-Relation fur 
ALLOT lautet einfach: 


n — > 


(6-16) 


Jetzt wollen wir einmal sehen, wie man einzelne (einfach genaue) 
Integers an dem so zugewiesenen Platz speichert bzw. von dort 
liest. BekanntermaBen wird eine einfach genaue Integer ja in zwei 
Bytes (zwei Speicherwortern) abgelegt. Wenn wir den Variablenna- 
men KEE im FORTH-System eingeben , fiihrt dies dazu, daB die Adres- 
se dieser Variablen auf den Stack gelegt wird. Genauer gesagt: 
Die Erwahnung eines Variablennamens legt die Adresse des ersten 
der beiden Bytes auf den Stack, die zur Speicherung des Varia- 
blenwerts benotigt werden. Wenn die Kommandos ! oder § aufgerufen 
werden , dann "wissen" Sie, daB die Ihnen zur Verfugung gestellte 
Adresse sich auf das erste Byte des Variablenwerts bezieht. Nach 
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Ausfiihrung von (6-1 5b) haben wir unter dem Variablennamen KEE 
jedoch wesentlich mehr Platz zur Verfiigung und konnen so mehr als 
nur eine einzige Integer speichern. Angenommen , wir wollen eine 
zweite einfach genaue Integer speichern, diesmal jedoch im drit- 
ten und vierten Speicherwort von KEE. Dies erreichen wir mit der 
folgenden Wortfolge: 


98 KEE 2 + ! (RETURN) 


(6-17) 


Damit wird die einfach genaue Integer 98 im dritten und vierten 
3yte der Variable KEE abgelegt. Dies geht im einzelnen so: Zuerst 
legen wir den zu speichernden Wert (98) auf den Stack. Anschlie- 
Bend schreiben wir den Variablennamen KEE hin, wodurch die Adres- 
se des ersten Speicherwortes der Variablen auf den Stack gelegt 
wird. Durch Eingeben von 2 + addieren wir nun 2 auf diese Adres- 
se. Damit haben wir die Adresse des dritten Bytes, das zu KEE 
gehort. Deswegen speichert ! den Wert 98 auch an dieser Stelle. 
Um den Variablenwert wieder auszulesen, bedienen wir uns eines 
ahnlichen Verfahrens: 


KEE 2 + § (6-18) 


Damit legen wir den Wert 98 auf den Stack. Denken Sie daran , daB 
man sich einen Variablenwert mittels § holen kann, ohne daB 
dieser dadurch verandert wird. Wenn man eine Variable so erwei- 
tert, daB sie zur Speicherung einer ganzen Liste von Werten be- 
nutzt werden kann, dann bezeichnet man sie auch als Array . Lassen 
Sie uns nun unser erstes Beispielprogramm mit Arrays schreiben. 
Wieder machen wir es uns zur Auf gabe , den Teilnehmern an einem 
Kurs Noten zuzuweisen , und zwar auf der Basis ihres Leistungs- 
durchschnitts in den einzelnen Tests. Wir gehen davon aus , daB 
die Durchschnittswerte der Kursteilnehmer bereits in einem Array 
mit dem Namen AVERAGE gespeichert sind. Das erste Element dieses 
Arrays fallt etwas aus der Reihe. Es gibt namlich die Anzahl der 
Kursteilnehmer an und stellt keinen Durchschni ttswert dar. Alle 
anderen einfach genauen Integers sind jedoch Punktzahlen, die den 
Leistungsdurchschnitt der einzelnen Studenten darstellen. Weiter- 
hin gehen wir davon aus, daB die Position eines Durchschni tts- 
werts im Array mit der Klassennummer des Teilnehmers iiberein- 
stimmt. Der Teilnehmer Nummer 1 hat seine Daten also an erster 
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Postition, Teilnehmer Nuinmer 2 an zweiter usw. Dies konnen wir 
machen , da bei der Arbeit mit Arrays in der Regel mit dem Index 0 
begonnen wird , d.h., der erste Dateneintrag im Array befindet 
sich an Position 0. Position 0 ist in unserem Beispiel aber die 
Anzahl der Teilnehmer > wahrend Position 1 der Durchschnitt des 
ersten Teilnehmers, Position 2 der des zweiten Teilnehmers ist 
usw. 


0 (Beispiel mit Arrays und ALLOT) 

1 VARIABLE DURCH 200 ALLOT 

2 : BEWERTUNG DURCH § 1 + 1 

3 DO CR 2 I * DURCH + § 59 - 0> IF 

4 STUDENT NO. " I . " BESTEHT " 

5 ELSE ."STUDENT NO. " I . " FAELLT DURCH " 

6 THEN 

7 LOOP ; 

8 

9 (Beispiel fuer Dateneingabe in Arrays) 

1 0 : INPDRCH CR . " Bitte Teilnehmerzahl eingeben " 

11 #IN DUP DURCH i 1 + 1 CR DO 

12 Durchschnitt des Teilnehmers Nr. " I . #IN 

1 3 CR DURCH I 2 * + ! 

1 4 LOOP CR 

15 


ABBILDUNG 6-3: Ein FORTH-Programm , das mit Arrays arbeitet 


Unser Programm (vgl. Abb. 6-3) gibt die Nuinmer jedes Teilnehmers 
aus und druckt dahinter BESTEHT oder FaLLT DURCH. Falls der Punk- 
tedurchschnitt den Wert 60 libers teigt, dann besteht der Teil- 
nehmer. Jetzt zu den Einzelheiten dieses Programms. Als erstes 
reservieren wir uns in Zeile 1 eine Variable mit dem Namen DURCH, 
aus der wir anschlieBend einen Array machen, indem wir 200 ALLOT 
eingeben. Dadurch kommen 200 weitere Byte zum Speicherplatz von 
DURCH hinzu. Dies bedeutet, daB weitere 100 einfach genaue Inte- 
gers gespeichert werden konnen- Insgesamt kann der Array DURCH 
also 101 sog. Elemente aufnehmen. Im Rest der Abbildung 6-3 wer- 
den zwei neue FORTH-Worter definiert. Das Wort BEWERTUNG be- 
rechnet das AbschluBergebnis und gibt es aus. Ehe dieses Wort an- 
gewendet werden kann, miissen jedoch die Werte in den Array DURCH 
gebracht werden; dazu dient das Wort INPDRCH. Wir nehmen einmal 
an, daB DURCH bereits mit Werten versorgt ist und sehen uns an, 
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was BEWERTUNG nun macht. Die erste Zahl im Array DDRCH stellt die 
Anzahl der Kurs teilnehmer dar. Wir gehen davon aus, daB der Kurs 
weniger als 100 Teilnehmer besitzt, da wir ja nur Platz fur 
msgesamt 100 Elemente mittels ALLOT reserviert haben. Achten Sie 
genau darauf , daB Sie nicht mehr Speicherplatz verwenden , als Sie 
reserviert haben. Sollten Sie in der vorliegenden Situation etwa 
versuchen, das 102te Element von DURCH zu beschreiben , dann 
konnen Sie unter Umstanden wertvolle Information im FORTH-Worter- 
buch dadurch zerstoren. 

Jetzt zu dem Wort BEWERTUNG. In Zeile 2 besorgen wir uns die 
Adresse des Arrays, indem wir seinen Namen DURCH hinschreiben . 
Genaugenommen steht jetzt die Adresse des ersten Datenelements 
auf dem Stack. Dieses Datenelement besorgen wir uns nun mit § . 
VereinbarungsgemaB haben wir nun an oberster Stack-Position die 
Anzahl der Kursteilnehmer stehen. Zu dieser Zahl addieren wir nun 
1 hinzu, pushen eine weitere 1 auf den Stack und haben damit die 
Parameter fur eine DO-Schleife eingerichtet . In diese Schleife 
treten wir in Zeile 3 mit dem bekannten Schlusselwort DO ein. Das 
Wort entfernt den Anfangswert fur den Schleif enindex sowie den 
Testwert vom Parameter- Stack und legt ihn auf den Return-Stack. 
Der erste Befehl in der Schleife - CR - sorgt daf ur , daB die Pro- 
grammausgaben lesbarer werden. Jetzt mul tiplizieren wir den 
Schleifenindex mit 2 und holen die Anfangs adresse des Arrays 
DURCH, auf die wir den soeben erhaltenen Wert (Schleifenindex mal 
2) addieren. Zu diesem Zeitpunkt befindet sich somit die Origi- 
naladresse unserer Daten, erhoht urn zweimal den Schleifenindex 
auf dem Stack. Als nachstes fiihren wir das Wort @ aus. Dies be- 
deutet, daB bei jedem Schleif endurchgang der Durchschnittswert 
eines Kursteilnehmers aus dem Arbeitsspeicher geholt und auf den 
Stack gelegt wird. Wir konnen nicht einfach den Schleifenindex 
benutzen, um auf die einzelnen Elemente des Arrays DURCH zuzu- 
greifen, da ja zur Speicherung einer einfach genauen Integer zwei 
Byte benotigt werden. Das ist der Grund, warum wir vor dem Zu- 
griff auf die Daten den Schleifenindex mit 2 mul tiplizieren . 

Jetzt konnen wir testen, ob der Teilnehmer bestanden hat: wir 
legen 59 auf den Stack und subtrahieren diesen Wert vom Durch- 
schnittswert des Kursteilnehmers. Wenn das Ergebnis groBer Null 
ist, dann besteht der Teilnehmer, ist die Differenz jedoch klei- 
ner Null, dann ist er durchgef alien . Diese beiden Falle unter- 
scheiden wir, indem wir uns von dem Vergleichswort 0 > ein Flag 
auf den Stack legen lassen. Falls dieses Flag M wahr" ist, kommt 
der Teilnehmer durch, ansonsten fallt er durch . Mittels IF-ELSE- 
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THEN geben wir die jeweils passende Meldung aus und vergessen 
nicht, die laufende Nummer des Teilnehmers dabei mit auf zunehmen. 

Wir konnten die Werte in den Array DURCH bringen , indem wir das 
im Beispiel (6-17) vorgestellte Verfahren benutzen. Dies ist je- 
doch wesentlich muhseliger als das selbstdef inierte Wort INPDRCH, 
das Sie auch in Abbildung 6-3 sehen. Das Wort fordert den Benut- 
zer selbsttatig zur Eingabe der richtigen Daten auf* Er muB nur 
mehr die Durchschni ttswerte eingeben und braucht sich nicht mehr 
darum zu kummern , daB diese an der richtigen Stelle im Array ab- 
gelegt werden. Im einzelnen geht das f olgendermaBen . In Zeile 10 
der Abbildung 6-3 geben wir die Meldung BITTE ANZAHL DER TEILNEH- 
MER EINGEBEN:. Diese Teilnehmerzahl lesen wir dann in Zeile 11 
mit dem FORTH-Wort #IN ein. Der Benutzer sieht also ein Fragezei- 
chen auf dem Bildschirm, und das Programm halt an, bis er die 
gewunschte Zahl eingegeben hat. Diese Zahl wird als nachstes 
dupliziert und an Position Null des Arrays DURCH gespeichert. das 
erreichen wir ganz einfach dadurch, dafi wir auf den Variablenna- 
men den Speicherbefehl ! folgen lassen. Der Rest von Zeile 11 
bereitet die Schleif enparameter vor. Vor Eintritt in die Schleife 
sorgen wir noch mittels CR dafur, daB die nachfolgende Eingabe- 
aufforderung auf einer eigenen Zeile zu stehen kommt. In der Zei- 
le 12 geben wir die Meldung: "Durchschnitt des Teilnehmers Nr." 
aus. Hinter dieser Meldung zeigen wir dem Bediener den Schleifen- 
index. Das Eingabewort #IN besorgt sich nun vom Benutzer die 
fragliche Punktzahl . Diese wird in Zeile 13 an der richtigen 
Stelle abgespeichert . Dazu pushen wir die Anfangsadresse von 
DURCH auf den Stack und addieren dazu den mit 2 multiplizierten 
Schleifenindex . Das Vorgehen ist hier also vollig analog zu dem, 
das wir in BEWERTUNG bereits kennengelernt haben. Nach einem 
Durchgang durch die Schleife ist im richtigen Element von DURCH 
der Punktedurchschnitt des Teilnehmers abgespeichert. 

ARRAY - Wie man Arrays mit ALLOT vereinbart, haben wir bereits 
erfahren. Im MMSFORTH und anderen FORTH-Systemen gibt es jedoch 
ein bequemeres Verfahren, mit dem Arrays vereinbart werden kon- 
nen. Dazu benutzt man das Wort ARRAY in folgender Weise: 


100 ARRAY DURCH (6-19) 

Diese Kommandofolge bewirkt das gleiche wie die Zeile 1 von 
Abbildung 6-3. Es wird also ein Worterbucheintrag fur die Varia- 
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ble DURCH eingerichtet , der auBerdem Platz fur 101 einfach genaue 
Integers enthalt. Wie wir jetzt wissen, werden dazu 202 Byte im 
Arbeitsspeicher des Computers reserviert. Bei der Arbeit mit 
ALLOT muB man die Anzahl der Bytes angeben , die reserviert werden 
sollen, wahrend ARRAY direkt mit Array-Elementen arbeitet. Im 
Falle von 6-19 werden diese Elemente fortlaufend von 0 bis 100 
durchnumeriert . Das Wort ARRAY hat folgende Stack-Relation: 


n 


— > 


( 6 - 20 ) 


Ein mit ARRAY vereinbarter Array kann insgesamt n + 1 Elemente 
aufnehmen, die von 0 bis n durchnumeriert sind. Der Platzbedarf 
fur diesen Array betragt 2(n+1) Byte. Urn die Adresse eines Array- 
Elements auf den Stack zu bekommen , geben wir lediglich die Ele- 
mentnummer und den Namen des Arrays in dieser Reihenfolge ein. 
Durch Ausfuhrung von 


3 DURCH 


( 6-21 ) 


erhalten wir so z.B. die Adresse des ersten Bytes des vierten 
Elements von DURCH auf dem Stack. Rufen Sie sich noch einmal ins 
Gedachtnis, daB das erste Element die Nummer 0 besitzt. Deshalb 
erreichen wir mit (6-21) auch das vierte Array-Element. 

Als Beispiel fur den Einsatz von ARRAY haben wir das Programm aus 
der Abbildung 6-3 noch einmal neu geschrieben. Sie sehen die ge- 
anderte Fassung in Abbildung 6-4. Im wesentlichen handelt es sich 
dabei urn das gleiche Programm wie in Abbildung 6-3 , auBer daB wir 
den Array DURCH mit dem FORTH-Befehl ARRAY vereinbaren. AuBerdem 
sind jetzt die AdreBberechnungen einfacher, da wir den Schleifen- 
index nicht mehr mit 2 multiplizieren mussen. Werfen Sie noch 
einen Blick auf Zeile 2: Dort besorgen wir uns mittels 0 DURCH 
die Adresse des ersten Elements des Arrays. 

Wie Sie sehen konnen, benutzt man zur Adressierung von Arrays, 
die mit ALLOT eingerichtet wurden, ein anderes Verfahren als fur 
solche, die Sie sich mittels ARRAY besorgt haben. Verwechseln Sie 
nicht diese beiden Methodenl Das Verfahren mit ARRAY ist zwei- 
felsohne einfacher, leider aber nicht Bestandteil von FORTH-79. 
Sollte Ihr System diese Moglichkeit zur Verfugung stellen, so 
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kann es sein , daB Sie zuvor die betreffenden Blocke in den Spei- 
cher laden mussen, ehe Sie auf diese Moglichkeit zuriickgreif er. 
konnen . 


0 ( Ein weiteres Beispiel fuer Arrays ) 

1 100 ARRAY DURCH 

2 : BEWERTUNG 0 DURCH 0 1 + 1 

3 DO CR I DURCH 0 59 - 0> IF 

4 . " STUDENT NO. "I . " BESTEHT " 

5 ELSE STUDENT NO. M I FAELLT DURCH " 

6 THEN 

7 LOOP ; 

8 

9 (Dateneingabe in einen Array) 

10 : INPDRCH CR . " Bitte Anzahl der Teilnehmer eingeben: " 

1 1 #IN DUP 0 DURCH 1 1 + 1 CR DO 

12 . " Durchschnittswert des Studenten Nr. " 1 . #IN 

13 CR I DURCH I 

1 4 LOOP CR ; 

15 


ABBILDUNG 6-4: Beispiel fur den Einsatz von ARRAY 


6.3.1 Arrays und doppelt genaue Integers 


Sie konnen auch doppelt genaue Integers in Arrays speichern. Auch 
dazu gibt es wieder zwei Verfahren, wobei wir uns zuerst dem mit- 
tels ALLOT zuwenden wollen. Wenn wir mit diesem FORTH-Wort den 
Speicherplatz einer Arrayvariablen erweiterten, dann haben wir 
bisher immer fiir jede zu speichernde einfach genaue Integer zwei 
Byte reserviert. Da doppelt genaue Integer einen doppelt so gros- 
en Speicherplatzbedarf haben , mussen wir entsprechend 4 Byte fiir 
jeden zu speichernden Wert vereinbaren: 


2 VARIABLE WORK 40 ALLOT 


( 6 - 22 ) 


Wir nchten also zuerst eine doppelt genaue Variable mit dem 
Namen WORK ein und erweitern deren Speicherkapazitat durch 40 
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ALLOT um weitere 40 Byte. Wenn wir jetzt WORK 4 + eingeben, dann 
r.aben wir danach die Adresse der zweiten doppelt genauen Integer 
in dem Array WORK auf dem Stack. Wenn wir doppelt genaue Arrays 
m einer Schleife verarbeiten und iiber den Schleif enindex anspre- 
:hen wollen, dann miissen wir den Schleif enindex mit 4 multipli- 
zieren. Dies ist analog zu dem Verfahren in Abbildung 6-3, in dem 
vir den Schleif enindex mit 2 mul tipliziert haben. Zum Speichern 
und Lesen von doppelt genauen Array-Elementen miissen Sie auBerdem 
die Worter 2! und 2@ verwenden. 

Is ist nicht einmal notwendig , doppelte Genauigkeit fur die Aus- 
gangsvariable zu vereinbaren. Wir hatten in (6-22) WORK genau- 
scgut mit VARIABLE vereinbaren konnen. In diesem Fall kann man in 
den ersten beiden Bytes des Arrays eine einfach genaue Integer 
speichern, wahrend die nachfolgenden Bytes jeweils in Vierergrup- 
:en zur Speicherung von doppelt genauen Werten dienen. Allerdings 
r.acht dieses Verfahren die AdreBberechnung fiir die Array-Elemente 
umstandlicher . 

Wenn Ihr FORTH-System iiber diese Moglichkeit verfiigt, dann konnen 
Sie auch mit dem Befehl DARRAY Arrays mit doppelt genauen Inte- 
gers vereinbaren. Auch dieses Wort ist kein Bestandteil von 
FORTH-79, aber im MMSFORTH zu finden. Es funktioniert im wesent- 
lichen genauso wie ARRAY. Seine Stack-Relation lautet: 


d — > 


(6-23) 


Nach Ausfiihrung von 


100 DARRAY WORK 


(6-24) 


r.aben wir also einen Array mit dem Namen WORK eingenchtet , der 
Platz fiir 101 doppelt genaue Integers hat, insgesamt also 404 
Byte im Arbei tsspeicher beansprucht. Wenn wir das vierte Element 
dieses Arrays auf den Stack legen wollen, dann geben wir ein 


4 WORK 2@ 


(6-25) 


225 


6 Konstanten, Variable und Arrays 


6.3.2 Arrays und Gleitkomroazahlen 


Gleitkommazahlen sind kein Bestandteil von FORTH-79, konnen aber 
in MMSFORTH und ahnlichen Systemen benutzt werden. Die hier dar- 
gestellten Array-Worter sind die von MMSFORTH. Sie sind also 
nicht standardisiert . Zur Einrichtung eines Arrays mit einfach 
genauen Gleitkommazahlen dient 2ARRAY, das im wesentlichen genau- 
so wie ARRAY f unktioniert , auBer daB eben mit einfach genauen 
Gleitkommazahlen gearbeitet wird. Ahnlich kann man mit 4 ARRAY 
Arrays mit doppelt genauen Gleitkommazahlen einrichten. 


6.3.3 Arrays mit Konstanten 


Gelegentlich ist es sehr nutzlich, uber einen Array zu verfugen, 
der eine Folge von Konstanten enthalt. Dies kann in FORTH-79 
leicht erreicht werden, indem man die Worter CREATE und , ein- 
setzt. Man kann diese beiden Worter zwar getrennt fur sich ver- 
wenden, davon wird dem Anf anger jedoch abgeraten. Wenn Sie nicht 
genau mit der Arbeitsweise Ihres FORTH-Systems vertraut sind, 
dann sollten Sie sie also nur zusammen einsetzen. Bei Ausfiihrung 
von CREATE wird ein Worterbucheintrag fiir den Namen eingerichtet , 
der auf das Schliisselwort folgt. So sorgt also 


CREATE TAB 


(6-26) 


dafur, daB fiir das Wort TAB ein Worterbucheintrag eingerichtet 
wird. Allerdings wird zu diesem Zeitpunkt kein Speicherplatz fiir 
Da ten vereinbart! Mit dem FORTH-Kommando , wird die oberste Inte- 
ger vom Stack entfernt und dafur im nachsten freien Worterbuch- 
eintrag ein Speicherbereich reserviert. AnschlieBend wird in die- 
sem Speicherbereich die Integer vom Stack abgelegt. Angenommen, 
wir wollen in unserem Konstanten-Array TAB sechs Werte speichern. 
Dies erreichen wir durch folgende Kommandos: 


CREATE TAB 1 5 , 20 , 35 , 40 , 50 , 60 , 


(6-27) 


226 



a) nti 


6 Konstanten, Variable und Arrays 


:_e Zahlen und Kommas sind jeweils durch Leerzeichen getrennt, 
i=r.ut sie von FORTH als eigene Worter erkannt werden . Wenn wir 
i-f das FORTH-Kommando CREATE also den Namen des Arrays folgen 
,r=sen und dahinter die entsprechenden Werte durch Komma getrennt 
-.ffuhren, dann werden diese Werte im Worterbuch von FORTH an den 
Misenden Stellen abgelegt. Beispiel (6-27) sorgt dafiir, daB im 
•irterbuch ein Eintrag fiir TAB vorgesehen wird. Als nachstes 
.zzrrz die 15 auf den Stack. Das nachste Wort - , - reserviert 2 
z’ te direkt hinter dem Worterbucheintrag fiir TAB und speichert 
iurt die 15. Entsprechend werden die anderen auf gef iihrten Kon- 
szzr.ze nwerte gespeichert. 

emer nachfolgenden Ausfuhrung des Wortes TAB findet sich an 
-c-erster Stack-Position die Adresse des ersten Daten-Bytes (in 
i-ssem Fall der Zahl 15). Nocheinmal: CREATE reserviert keinen 

- zeirherplatz fiir die Daten im Worterbuch. 1st der Array TAB mit- 
-s_s .6-17) erst einmal eingerichtet , dann kann man ihn wie jeden 
i^ieren Array mit einfach genauen Integers behandeln. Man kann 
fi’iar Werte in TAB speichern, indem man sich der bereits vorge- 
r.z 11 ten Verfahren bedient. Wenn wir einen Array nicht mit Kon- 
i ‘.ar.'enwerten initialisieren miissen, dann sollte nicht CREATE 
werden, da die Arbeit mit Arrays sonst zu umstandlich 
In solchen Fallen sollten Sie den normalen Weg gehen und 
. ALLOT arbeiten. 


6.4 Mehrdimensionale Arrays 


-ar.ir.e Anwendungen erf order n die Verarbeitung mehrerer Datenli- 
s'cn (.Arrays') , die witeinander verkniipft sind. So konnte in dem 
einen Array z.B. die Prufungsleis tung von ‘Studenten enthalten 
in, wahrend der andere Array die Matrikelnummern enthalt. Es 
re nun wiinschenswert , eine Verbindung zwischen der Leistung des 
Studenten und seiner Matrikelnummer herzustellen . Fiir dieses Pro- 
blem bieten mehrdimensionale Arrays eine elegante Losung. Sehen 
-ir uns ein Beispiel an. Wir haben fiir die Teilnehmer an einem 
: urs eine Matrikelnummer sowie die Punktzahl in zwei Tests. Wir 
-alien den Durchschnitt des Studenten berechnen und neben seiner 
Matrikelnummer ausgeben. Dies macht das FORTH- Pro gramm in Abbil- 
iung 6-5. Die ersten drei Zeilen dienen zur Vereinbarung von drei 
-nterschiedlichen Arrays, die jedoch allesamt gleich lang sind. 
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0 ( Bei spiel fuer parallelverarbeitung mehrerer Arrays ) 


1 

VARIABLE 

IDNUMB 

200 

ALLOT 


2 

VARIABLE 

GRADE 1 

200 

ALLOT 


3 

VARIABLE 

GRADE 2 

200 

ALLOT 


4 

: CLASS 

IDNUMB § 

1 + 

1 DO 

5 

CR 

2 I * 

GRADE 1 

+ @ 2 

I * GRADE2 + § + 

6 

i 

' STUDENT 

NO. 

11 I 2 

* IDNUMB + § . 

7 


. " HAT DEN DURCHSCHNITT 

" 2 / 


8 LOOP 

9 (Beispiel fuer Werteingabe in Arrays) 

10 : GRADEIN CR . " BITTE TEILNEHMERZAHL EINGEBEN " 

1 1 #IN DUP IDNUMB ! 1+1 CR DO 

12 CR MATR I KELNUMMER UND BEWERTUNG EINGEBEN " 

13 #IN #IN #IN 

14 I 2 * GRADE 2 + ! I 2 * GRADE 1 + ! I 2 * IDNUMB + 

1 5 LOOP ; 

ABBILDUNG 6-5: Ein Beispiel fur mehrfache Arrays 


Im Array IDNUMB speichern wir die Matrikelnummern des Studenten. 
GRADE 1 enthalt die Punktzahl im ersten Test, wahrend GRADE 2 die 
Ergebnisse des zweiten Tests beinhaltet. Zusatzlich merken wir 
uns in Position 0 von IDNUMB die Anzahl der Teilnehmer im Kurs. 
Die entsprechende Position der beiden anderen Arrays bleibt in- 
dessen ungenutzt. 

Wir gehen jetzt davon aus , daB diese drei Arrays mit Daten ver- 
sorgt sind und wenden uns der Arbeitsweise des FORTH-Wortes CLASS 
zu. (Vgl. Abb. 6-5). Die erste Zeile des Programms erhoht den 
"Teilnehmerzahler" urn 1 ; dazu besorgen wir uns die Anf angsadresse 
des Arrays, indem wir seinen Namen rufen (IDNUMB) und uns an- 
schlieBend mittels @ das nullte Datenelement dieses Arrays auf 
den Stack legen lassen. Auf diesen Wert (die Anzahl der Teilneh- 
mer) addieren wir als nachstes 1 mit der Kommandofolge 1 +. Die 
Anzahl der Teilnehmer soli namlich als Testwert einer DO-Schleife 
dienen, wobei wir bereits wissen, daB der Testwert in einer sol- 
chen DO-Schleife urn 1 hoher sein muB als die Anzahl der ge- 
wiinschten Durchlaufe ( vorausgesetzt , der Index beginnt mit 1, wie 
es hier der Fall ist) . Das letzte Wort auf Zeile 4 leitet die 
Schleife ein, welche jetzt genausooft durchlaufen wird, wie es 
Teilnehmer im Kurs gibt. Die Zeile 5 der Abbildung 6-5 dient 
dazu, fur den ersten Studenten die Ergebnisse in den beiden Tests 
zu ermitteln. Dabei gehen wir wie ublich vor: Der Schleif enindex 
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wird mit 2 mul tipliziert und anschlieBend diese Zahl auf die 
Startadresse des Arrays addiert, den wir bearbeiten wollen. Dies 
machen wir zweimal , einmal fur GRADEl und einmaL fur GRADE2. 
Danach haben wir die Punktzahl in den beiden Tests auf dem Stack 
und konnen sie mittels + addieren, um fur die Durchschnittsbe- 
rechnung alles vorzuberei ten . Zeile 6 dient dazu, neben einer 
Textmeldung die Matrikelnummer des Studenten auszugeben; die 
Matrikelnummer erreichen wir wiederum, indem wir den Lauf index 
mit 2 multiplizieren , diese Zahl auf die Startadresse des Arrays 
addieren und das Datenelement an der so berechneten Position 
mittels @ holen. In Zeile 7 wird nun der Durchschnitt berechnet 
und ausgegeben. Nach Abarbeitung von Zeile 6 ist die Summe der 
Punkte in den beiden Tests oberster Stack-Eintrag . Diese Zahl 
teilen wir durch 2 und geben den Quotienten aus . Damit ist die 
Schleife beendet, und das LOOP auf Zeile 8 sorgt fur einen Wie- 
dereintritt, so lange die Tes tbedingung noch nicht erfullt ist. 

In den Zeilen 10 bis 15 der Abbildung 6-5 sehen Sie ein Programm 
zur Eingabe der Daten. Dies folgt wei testgehend dem Verfahren, 
das wir aus Abbildung 6-3 schon kennen, auBer daB nun Daten in 
drei Arrays eingegeben werden mussen. Die Daten werden in folgen- 
der Reihenfolge auf den Stack gelegt: Matrikelnummer, Testl und 
Test2. Wir lesen sie also in umgekehrter Reihenfolge vom Stack. 

Dieses Programm kann auch mit doppelt genauen Integers geschrie- 
ben werden; der Algorithmus bleibt der gleiche. Sie mussen nur 
die passenden Worter fur die Manipulation von doppelt genauen 
Integers einsetzen. 


6.4.1 Zweidimensionale Arrays 


Im letzten Beispiel haben wir drei Arrays im Programm verwendet, 
die inhaltlich aufeinander bezogen sind. Jeder dieser Arrays war 
zur Aufnahme einer anderen Art von Daten bestimmt. In solchen 
Fallen, in denen mehrere aufeinander bezogene Datensatze gegeben 
sind, ist es oft bequemer, mit zweidimensionalen Arrays zu arbei- 
ten. Alle bisher betrachteten Arrays waren eindimensional . Einen 
eindimensionalen Array kann man sich als eine (beliebig lange) 
Liste von Daten vorstellen, oder anders ausgedriickt, als eine 
Datenzeile mit (beliebig vielen) Datenspal ten . Im Unterschied 
dazu kann ein zweidimensionaler Array nicht nur beliebig viele 
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Datenspalten, sondern auch eine groBere Anzahl Datenzeilen auf- 
weisen. Zweidimensionale Arrays haben daher die logische Struktur 
einer Wertetabelle; wer sich noch nichts unter einem zweidimen- 
sionalen Array vorstellen kann , der denke an die bekannten Ent- 
fernungstabellen , in denen die Entfernung zwischen Stadten in km 
abzulesen ist. Hierbei handelt es sich urn ein Beispiel fur einen 
zweidimensionalen Array. 

Natiirlich konnen wir die Daten fur das Beispielprogramm in Abbil- 
dung 2-5 auch in einem zweidimensionalen Array speichern. Jede 
Zeile dieses Arrays entspricht dann einem Studenten, wobei in 
Spalte 0 die Matrikelnummer , in Spalte 1 das Ergebnis des ersten, 
in Spalte 2 das Ergebnis des zweiten Tests zu finden ist (Beach- 
ten Sie, daB wir die Datenelemente mit 0 beginnend durchnumerie- 
ren! ) 


0 ( Beispiel fuer einen zweidimensionalen Array ) 

1 2 100 2 ARRAY GRADE 

2 : CLASSAV 0 0 GRADE § 1 + 1 DO 

3 CR I 1 GRADE @12 GRADE @ + 

4 ." STUDENT NO. " I 0 GRADE § . 

5 HAT DEN DURCHSCHNITT " 2 / . 

6 LOOP ; 

7 

8 (Werteversorgung des Arrays ueber Tastatur) 

9 : GRADEIN CR . " BITTE ANZAHL DER TEILNEHMER EINGEBEN « 

I 0 frll* 170P \ \ v \ ^ 

II CR . M MATRIKELNUMMER UND BEWERTUNGEN EINGEBEN " 

12 #IN #IN #IN 

13 12 GRADE ! I 1 GRADE i I 0 GRADE l 

1 4 LOOP ; 

1 5 


ABBILDUNG 6-6: Ein Beispiel fur zweidimensionale Arrays 


Der Befehl zur Definition eines zweidimensionalen Arrays ist kein 
Bestandteil von FORTH-79, findet sich jedoch in MMS-FORTH. Er 
lautet 2ARRAY und wird folgendermaBen angewendet: 


n 1 n 2 2 ARRAY GRADE 


(6-28) 
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Das Wort 2 ARRAY erwartet zwei einfach genaue Integers auf dem 
Stack, die es davon entfernt. Es vereinbart daraufhin einen zwei- 
dimensionalen Array - in diesem Fall mit dem Namen GRADES der 
+ 1 Zeilen und n^ +1 Spalten hat. Die erste Zeile und Spalte 
tragen jeweils die Nummer 0. Die Stack-Relation 2ARRAY: 


n„ n. 


--> 


(6-29) 


Die Werte fur n^ und n 2 miissen sich dabei zwischen 1 und 254 be- 
wegen . 

Wenden wir uns jetzt der Frage zu , wie man Daten in einem zweidi- 
mensionalem Array speichern bzw. aus ihm auslesen kann. Um bei- 
spielsweise die Adresse des Datenelements auf den Stack zu bekom- 
men, das sich in Zeile n^ und Spalte n^ des Arrays GRADE befin- 
det, miissen wir eingeben: 


^ n 2 GRADE 


(6-30) 


Das bedeutet, dafi wir die einfach genaue Integer, die sich in 
Zeile 4, Spalte 3 des Arrays GRADE befindet, mit folgender Ein- 
gabe erreichen: 

4 3 GRADE 

Als Beispiel fur den Einsatz zweidimensionaler Arrays wollen wir 
das Programm aus Abbildung 6-5 neu schreiben. Sie sehen die ver- 
anderte Version in der Abbildung 6-6. 

Wir brauchen jetzt nur mehr eine Zeile zur Einrichtung des noti- 
gen Arrays, der diesmal jedoch zwei Dimensionen hat; das besorgt 
die Zeile 1 des Beispielprogramms . Nach ihrer Ausfuhrung ist im 
FORTH-System Speicherplatz fur einen zweidimensionalen Array mit 
dem Namen GRADE reserviert, der 101 Zeilen mit jeweils 3 Spalten 
besitzt. Wir gehen davon aus, daB die Gesamtzahl der Teilnehmer 
am Kurs im Element (0,0) des Arrays gespeichert ist. Sie darf 100 
nicht iiberschreiten , da sonst die Arraygrenzen gesprengt werden. 
Ubrigens bezieht man sich auf Elemente eines Arrays durch Angaben 
in der Form (Zeile, Spalte). In Zeile 2 beginnt die eigentliche 
Definition des neuen Wortes CLASSAV; als erstes werden die Para- 
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meter fur eine DO-Schleife eingerichtet , wozu wir uns die Anzahl 
der Teilnehmer besorgen und urn 1 erhohen. Das Verfahren ent- 
spricht also genau dem von Abbildung 6-5 , wir mussen jetzt jedoch 
zwei Werte auf den Stack legen, urn an das erste Datenelement des 
Arrays GRADE zu gelangen. In Zeile 3 holen wir die Datenelemente 
aus GRADE, die in der dem Schleif enindex entsprechenden Zeile und 
den Spalten 1 und 2 zu finden sind. Die Matrikelnummer des Teil- 
nehmers finden wir in Spalte 0. Wir besorgen sie uns in Zeile 4, 
d.h., wir holen das Element aus dem Array, das in der dem Schlei- 
fenindex entsprechenden Zeile und Spalte 0 zu finden ist. Der 
Rest des Programms entspricht genau dem aus Abbildung 6-5. 

Die Zeilen 8 bis 13 der Abbildung 6-6 zeigen die Definition des 
FORTH-Wortes GRADEIN, mit dem der Benutzer Daten in den Array 
GRADE eingeben kann. Auch dieses Programm folgt in seinen Verar- 
bei tungsschn tten dem aus Abbildung 6-5, auBer daB jetzt die no- 
tigen Verfahren zur Speicherung in zweidimensionalen Arrays ange- 
wendet werden. Beach ten Sie, daB das Programm aus Abbildung 6-6 
einfacher ist als das in Abbildung 6-5. 


6.4.2 Zweidimensionale Arrays und doppelte Genauigkeit 


Mit dem FORTH -Kommando 2DARRAY kann man einen zweidimensionalen 
Array vereinbaren , in dem doppelt genaue Integers gespeichert 
werden. Das Wort ist zwar kein Bestandteil von FORTH-79, wurde 
jedoch in MMSFORTH aufgenommen. Die Details des Umgangs mit 
2DARRAY entsprechen denen fur ARRAY. Die Stack-Relation lautet: 


n„ n 0 — > 

i 2 


(6-31 ) 


Die Integers, mit denen der Umfang des Arrays festgelegt wird , 
mussen einfach genau sein, sich also zwischen 0 und 65535 bewe- 
gen. Zum Speichern und Wiederauf finden von Daten in solchen Ar- 
rays mussen die Kommandos 2 § und 2! verwendet werden. 
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6.4,3 Zweidiroensionale Arrays und Gleitkoranazahlen 

MiMS FORTH und andere FORTH-Systeme stellen Worter zur Verfugung, 
-it denen zweidimensionale Arrays von Gleitkommazahlen definiert 
-erden konnen. Da sie nicht zum FORTH-79-Standard gehoren, konnen 
sich diese Worter von System zu System unterscheiden . Fur einfach 
genaue Gleitkommazahlen definiert man einen zweidimensionalen 
.Array mit dem Wort 22ARRAY. Die Handhabung eines solchen Arrays 
entspricht der, die wir von 2ARRAY schon kennen, auBer daB jetzt 
<eine einfach genauen Integers, sondern Gleitkommazahlen im Array 
gespeichert werden. Fur den Zugriff (Lesen und Schreiben) nimmt 
^an die Worter 2 @ und 2!. Die Stack-Relation entspricht der von 
6-29). Die Zahlen, die die Abmessungen des Arrays festlegen (n^ 
und n 2 ) sind einfach genaue Integers. Auch die Zahlen, mit deren 
Kilfe man auf ein einzelnes Element des Arrays zugreift, miissen 
einfach genaue Integers sein. 

Fernerhin ist es moglich, durch das FORTH-Wort 24ARRAY eine zwei- 
dimesionalen Array filr doppelt genaue Gleitkommazahlen zu verein- 
caren. Bis auf den Umstand, daB fur den Datenzugriff die Worter 
4s 1 und 41 verwendet werden miissen, gleicht die Arbeit mit solchen 
Arrays denen mit Gleitkommazahlen von einfacher Genauigkeit. 


6 . 5 Obungsauf gaben 


In einigen der folgenden Ubungsauf gaben sollen Sie neue FORTH- 
Worter definieren bzw. Programme schreiben. Uberpriifen Sie diese, 
mdem Sie sie auf Ihrem Computer laufen lassen. Versuchen Sie, 
moglichst kurze Programme zu schreiben, indem Sie Teilaufgaben 
durch Modularisierung an Unterworter vergeben. 


6-1 Erortern Sie den Unterschied zwischen Konstanten und Vana- 
blen. 

6-2 Schreiben Sie ein Programm, das den Umfang und den Flachen- 
inhalt eines Kreises berechnet und dabei die Kreiszahl 7r als 
Konstante verwendet. Das Programm erwartet den Radius des 
Kreises auf dem Stack. Zur Berechnung des Kreisumf angs dient 
die Formel 2Tr , wahrend die Formel fiir die Berechnung der 
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2 

Kreisflache r t lautet. Legen Sie in diesem Programm fur 
den Wert 3,142 zugrunde. Falls notig, soil ten Sie Ihre Werte 
skalieren . 

6-3 Erortern Sie den Vorteil , der sich durch den Einsatz von 
Konstanten in FORTH-Wortern ergibt. 

6-4 Wiederholen Sie Aufgabe 6-2, wobei Sie diesmal fur n den 
Wert 3,1415927 ansetzen. 

6-5 Wiederholen Sie Aufgabe 4-8 mit Variablen. 

6-6 Wiederholen Sie Aufgabe 4-10 mit Variablen. 

6-7 Wiederholen Sie Aufgabe 4-16 mit Variablen. Die Punktzahlen 
sollten nicht auf den Stack gelegt, sondern direkt vom 
Benutzer im Programm eingegeben werden. 

6-8 Schreiben Sie ein FORTH-Wort, das unter Verwendung von Va- 
riablen die Fakultat berechnet. 


6-9 Wiederholen Sie Aufgabe 6-8 mit doppelt genauen Integers. 

6-10 Wiederholen Sie Aufgabe 6-2 mit einer Gleitkommakonstante . 

6-11 Wiederholen Sie Aufgabe 6-10, wobei Sie sowohl Gleitkommava- 
riable als auch Glei tkommakonstanten einsetzen sollen. 


6-12 Wiederholen Sie Aufgabe 6-11 mit doppelt genauen Variablen 
und Konstanten. Legen Sie den Wert von zugrunde, der in 
Aufgabe 6-4 angegeben ist. 

6-13 Wiederholen Sie Aufgabe 6-8 mit Gleitkommavariablen . 

6-14 Wiederholen Sie Aufgabe 6-13 mit doppelt genauen Gleitkomma- 
variablen . 


6-15 Was ist ein Array? 

6-16 Wiederholen Sie Aufgabe 5-10, berechnen Sie diesmal jedoch 
die Provision einer groBeren Anzahl von Verkaufern. Die 
Verkaufer werden iiber ihre Personalnummer identif iziert . Ihr 
Programm sollte Arrays verwenden. Gehen Sie davon aus, daB 
die Firma nicht mehr als 250 Verkaufer hat. In Ihrem Pro- 
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gramm sollte auch die Moglichkeit vorgesehen sein, auf ein- 
fache Art Daten in den Array einzugeben bzw. von dort zu 
lesen . 

-17 Wiederholen Sie Aufgabe 6-16 mit doppelt genauen Integers. 

-'8 Schreiben Sie ein Programm, das pythagoreische Zahlentripel 
berechnet. Speichern Sie die Daten in einem Array. Das 
Programm sollte die im Array gespeicherten Werte ausgeben 
konnen. 

-‘9 Wiederholen Sie Aufgabe 6-18 mit doppelt genauen Integers. 

-20 Wiederholen Sie Aufgabe 6-16 mit einfach genauen Gleitkomma- 
zahlen. 

-21 Wiederholen Sie Aufgabe 6-16 mit doppelt genauen Gleitkomma- 
zahlen . 

-22 Wiederholen Sie Aufgabe 6-18 mit einfach genauen Gleitkomma- 
zahlen . 

-23 Wiederholen Sie Aufgabe 6-18 mit doppelt genauen Gleitkomma- 
zahlen . 
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7 Zeichen und Zeichenfolgen 


*_t den FORTH-Wortern , die wir bisher selbst definiert haben, 
: rr.ten wir nur Zahlen manipulieren. Jetzt wollen wir sehen, wie 
auch mit Buchstaben und Buchs tabenf olgen (Zeichenketten Oder 
wrings) in Programmen arbeiten kann. Dabei beschrankt sich unse- 
e Sarstellung nicht nur auf die Buchstaben des Alphabets, son- 
:e:n auch auf Zif f ernzeichen (0-9) und Interpunktions zeichen und 
iere Sonderzeichen . Fur diese Art von Zeichen gibt es einen 
7 azhausdruck: Man bezeichnet die Buchstaben, Ziffern und Sonder- 

zeichen mit dem umfassenden Ausdruck alphanumerische Paten . Ein- 
:ei r.e Zeichen bilden zusammengeschrieben sog. Zeichenketten Oder 
5 -rings . Wir werden in diesem Kapitel auch FORTH-Worter kennen- 
_emen, mit denen man Strings manipulieren kann. 

:ir Speicherung eines alphanumerischen Zeichens benotigt man bei 
ler. meisten FORTH-Systemen nur ein einziges Byte. Deshalb bespre- 
::.en wir in diesem Kapitel auch FORTH-Worter, mit denen man ein- 
i = lne Bytes manipulieren kann. Die Operationen, die wir dabei 
-rrstellen, konnen sowohl auf Zahlen als auch auf Zeichen ange- 
•endet werden. In einem 8-Bit-Byte kann man namlich auch vorzei- 
::.enlose Integers im Bereich von 0 bis 25 5 speichern. 


7.1 Zeichen - Bytemanipulationen 


Iieser Abschnitt legt dar, wie man in FORTH alphanumerische Daten 
emgeben, ausgeben und verarbeiten kann. Wir werden auch sehen, 
•*:e man Text speichert und manipuliert. Da das FORTH-System Zei- 
:nen byteweise ablegt, werden wir uns auch mit FORTH-Wortern be- 
schaftigen, die uns die Bearbeitung einzelner Bytes erlauben . 

C! und C@ - Das FORTH-Wort C! entfernt zwei einfach genaue Zahlen 
vom Stack? der erste Stackeintrag wird als Adresse behandelt, 
-ah rend der zweite Stackeintrag eine vorzeichenlose Integer sein 
ruB. Die acht niedrigs twertigen Bit dieser Integer werden dann an 
der angegebenen Speicheradresse abgelegt. Wir haben folgende 
Stack-Relation : 


n a — > 


(7-1 ) 
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C! funktioniert also fast genauso wie !, auBer daB nur 8 Bits, 
(also ein Byte) gespeichert werden. Die Stack-Operationen sind 
jedoch bei beiden Wortern gleich (eine einfach genaue Integer be- 
legt auf dem Stack zwei Byte.) Mit dem Stack-Symbol "a" bezeich- 
nen wir bekanntermaBen Adressen. Eine Adresse ist aber nichts 
anderes als eine vorzeichenlose einfach genaue Integer. 

Zum Wiederauf f inden gespeicherter Zeichen dient das FORTH -Komm an - 
do C . Es entfernt die oberste Zahl vom Stack und behandelt sie 
als Adresse. Das Byte, das an dieser Adresse gespeichert ist, 
wird geholt und als einfach genaue Integer auf den Stack gelegt. 
Da eine einfach genaue Integer doppelt so lang wie ein Byte ist, 
werden die acht hochstwertigen Bit der auf den Stack gelegten 
Zahl auf Null gesetzt. Die acht niedrigstwertigen Bit entsprechen 
jedoch der geholten Originalzahl . Die Stack-Relation lautet: 


a — > n 


(7-2) 


Die beiden Worter Cl und C§ behandeln den Stack somit so, als ob 
einfach genaue Integers gespeichert bzw. geholt werden sollen. 
Der gespeicherte Wert belegt im Worterbuch aber tatsachlich nur 
ein Byte. 

CMOVE und CCMOVE - Bei der Arbeit mit Zeichen, die sich im Compu- 
terspeicher befinden, taucht oft die Notwendigkei t auf, ganze 
Speicherblocke zu verschieben. Dazu mvissen Sie sich nur einmal 
vorstellen, daB die im Arbei tsspeicher abgelegten Zeichen einen 
Absatz eines langeren Textes darstellen, den wir in einem selbst- 
geschriebenen Textprogramm verarbeiten wollen. In diesen Text 
wollen Sie nun - irgendwo in der Mitte - neues Textmaterial ein- 
fugen. Dazu ware es bequem, mit einem einzigen Kommando die ganze 
Textzeile an eine andere Stelle des Arbei tsspeichers verschieben 
zu konnen, urn Platz fur das neue Textmaterial zu erhalten. Die 
zwei oben genannten FORTH-Worter unterstiitzten uns bei dieser 
Aufgabe. Das erste - CMOVE - konnte zum Beispiel folgendermaBen 
eingesetzt werden: 


34500 38000 100 CMOVE 


(7-3) 
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Dieses Beispiel bewirkt, daB ein 100 Byte langer Block, der bei 
der Adresse 34500 beginnt, an eine neue Stelle im Arbeitsspeicher 
verschoben wird, und zwar beginnend bei Adresse 38000. Dadurch 
wird die Ausgangsinformation dupliziert, d.h., die Bytes, die 
zwischen Adresse 34500 und 34599 im Arbeitsspeicher stehen, wie- 
derholen sich jetzt an den Adressen 38000 bis 38099. Bei dieser 
Art der Blockverschiebung bleiben die Ausgangsadressen also un- 
verandert. Sie stehen jetzt jedoch zur Speicherung neuer Informa- 
tionen zur Verfiigung. Die Informationsverschiebung geschieht 
oyteweise "von unten nach oben" , d.h., zuerst wird das Byte an 
Adresse 34500 an die Adresse 38000 bewegt, dann verschiebt FORTH 
das Byte an Adresse 34501 nach 38001 usw. Die Reihenfolge, in der 
die einzelnen Bytes bewegt werden , scheint fur den Benutzer un- 
mteressant zu sein. Im vorhergehenden Beispiel ist sie es auch. 
Es gibt jedoch bestimmte Falle, in denen der Benutzer die Details 
des Verschiebeprozesses beachten muB. Wenn wir z.B. folgendes 
schreiben: 


34500 34550 100 MOVE 


(7-4) 


dann werden zwar wiederum 100 Byte verschoben, die Verschiebe- 
distanz betragt diesmal jedoch nur 50 Byte. Bei der ersten Byte- 
bewegung uberschreiben wir die Daten an Adresse 34550 unwie- 
derbringlich . Die 50 Byte, die ab dieser Adresse beginnen, werden 
also de facto gar nicht mit verschoben. Eine Losung fur dieses 
Problem konnte darin bestehen, den 100-Byte-Block weiter als 100 
Speicherstellen zu verschieben und dann die richtig kopierten 
Daten mit einem weiteren CMOVE an die gewunschte Stelle zu bnn- 
gen. Glucklicherweise gibt es jedoch ein anderes FORTH-Wort, das 
dieses Problem lost. Dieses lautet CCMOVE und arbeitet im wesent- 
lichen wie CMOVE, auBer daB bei dem Verschieben mit den hoheren 
Adressen begonnen wird. Deshalb bewirkt 


34500 34550 100 CCMOVE (7-5) 

das Folgende: Erst wird der Inhalt der Adresse 34599 an der Spei- 
cheradresse 34649 wiederholt. Dann wird der Inhalt von Adresse 
34598 verschoben, und zwar an Adresse 34648 usw. Somit werden die 
Daten an der Ausgangsposition der Verschiebeoperation nicht iiber- 
schrieben, ehe sie nicht an die gewunschte Zielposition dupli- 
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ziert wurden. CMOVE und <CMOVE ftihren also dieselbe Funktion aus, 
gehen dabei jedoch unterschiedlich vor. Beide Worter konnen na- 
tiirlich auch dazu benutzt werden, Speicherblocke von hoheren in 
niedrigere Speicheradressen zu verschieben. Beachten Sie, daB 
<CMOVE noch kein Bestandteil von FORTH-79 ist. In MMSFORTH und 
anderen FORTH-Systemen ist es jedoch implementiert . Beide Worter 
besitzen die Stack-Relation: 


a 


1 


a 2 n — > 


(7-6) 


Ein n Byte langer Block, der an Adresse a^ beginnt, wird zu der 
neuen Startadresse verschoben. 

MOVE - Auch dieses Wort dient zum Verschieben von Speicherblocken 
im Computerspeicher und ahnelt CMOVE, auBer daB beim Verschiebe- 
vorgang jeweils zwei Byte auf einmal kopiert werden. Wenn wir 
eingeben: 

a l a 2 n MOVE 

dann werden 2n Byte verschoben, beginnend bei Adresse mit dem 
Ziel a 2 . MOVE ist Bestandteil von FORTH-79. 

KEY - Mit dem FORTH -Kommando KEY konnen Sie alphanumerische Daten 
von der Tastatur eingeben. Bei Ausfuhrung von KEY wird der ASCII- 
Code (vgl. Abschnitt 3-2) des nachsten von der Tastatur eingege- 
benen Zeichens als vorzeichenlose einfach genaue Integer auf den 
Stack gelegt. Beachten Sie, daB ASCII-Codes stets kleiner oder 
gleich 255 sind, so daB man sie auch als vorzeichenlose Integers 
in einem einzigen Byte darstellen kann . Das bedeutet, daB man die 
ASCI I-Darstellung eines Zeichens mit den Speicherkommandos C! 
oder C§ manipulieren kann. Wenn wir also eingeben: 


KEY Z (RETURN) 


(7-7) 


dann erhalten wir als obersten Stack-Eintrag die Zahl 90 als 
vorzeichenlose einfach genaue Integer, weil dies der ASCII-Code 
fur den Buchstaben Z ist. Die Stack-Relation fur KEY lautet: 
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— > u 


(7-8) 


Wie Sie wissen, dient in Stack-Relationen der Buchstabe "u" zur 
Darstellung von vorzeichenlosen einfach genauen Integers. Bei 
Ausfiihrung von KEY wird allerdings das nachste Zeichen von der 
Tastatur nicht auf dem Bildschirm ausgegeben (geechot). Das be- 
deutet, daB bei Ausfiihrung von (7-7) der Benutzer auf seinem 
Bildschirm nichts zu sehen bekommt. 

EMIT - Das FORTH-Kommando EMIT dient zur Ausgabe von Zeichen 
aufgrund ihres ASCII -Codes. Dazu entfernt EMIT eine vorzeichenlo- 
se einfach genaue Integer vom Stack und gibt das Zeichen aus, das 
gemaB der ASCII-Code-Tabelle dieser Zahl entspricht. Beachten 
Sie, daB der Stackwert zwischen 0 und 127 liegen muB. Durch Aus- 
fiihrung von 


90 EMIT (RETURN) 


(7-9) 


erhalten wir so ein groBes Z auf dem Bildschirm. EMIT hat folgen- 
de Stack-Relation: 


u — > 


(7-10) 


Wir wollen unsere neu gelernten Worter gleich in einem Beispiel 
anwenden. In Abbildung 7-1 sehen Sie ein kleines Programm, mit 
dem Textmaterial in einen Array eingegeben werden kann. In diesen 
Array konnen Sie etwa einen kurzen Brief eingeben und spater 
wieder ausdrucken oder den Text sogar mit einem - selbs tgeschrie- 
benen - Textprogramm bearbeiten. Zur Einrichtung von Byte-Arrays 
mussen wir die Verfahren aus dem letzten Kapitel anwenden. 

Jetzt zu den Details des Programms in Abbildung 7-1 . In Zeile 2 
besorgen wir uns Speicherplatz fur 1024 Byte, indem wir zuerst 
eine Variable TEXT vereinbaren und deren Speicherumf ang dann mit- 
tels ALLOT ausdehnen. Wir konnen in diesem Array jetzt 1024 Zei- 
chen speichern. Die ersten beiden Bytes, die TEXT urspriinglich 
durch VARIABLE zugewiesen wurden , benutzen wir dazu, die Anzahl 
der tatsachlich eingegebenen Zeichen in dem Array zu speichern. 
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0 ( Einfache Ein- und Ausgabe von Zeichen ) 

1 VARIABLE TEXT 1024 ALLOT 

2 ( Zeicheneingabe) 


3 : 

: SPEICHERE 

CR 1 024 1 

DO 

KEY 

DUP EMIT DUP 

4 


TEXT I 2 + 

+ 

C! 


5 


35 - 0= 




6 


IF LEAVE 

I 

1 - TEXT 

I THEN 

7 

LOOP 

CR ; 





8 

9 (Gespeicherte Daten ausgeben) 

1 0 : AUSGABE CR TEXT § 1 DO 

1 1 TEXT I 1 + + C § 

1 2 EMIT 

1 3 LOOP CR ; 

14 

15 

ABBIUXJNG 7-1 : Einlesen von Zeichendaten in Arrays 


Das eigentliche "Speicherwort" beginnt in Zeile 3 und tragt den 
Namen SPEICHERE. Im wesentlichen besteht dieses Wort aus einer 
Schleif e , die 1 024mal wiederholt wird. Nach Eintritt in die 
Schleife wird das Wort KEY gerufen, wodurch das Prograinm anhalt 
und wartet, bis der Benutzer eine Taste gedriickt hat. KEY wandelt 
dann diesen Tastendruck in den entsprechenden ASCII-Code urn, den 
es auf den Stack legt. Wir duplizieren die Zahl und geben mittels 
EMIT das entsprechende Zeichen wieder aus, so daB der Benutzer 
auch sieht, was er eingegeben hat. Wieder duplizieren wir die 
Benutzereingabe. Dies ist der letzte Befehl von Zeile 3. In Zeile 
4 sorgen wir dafiir, daB das eingegebene Zeichen an der richtigen 
Stelle im Array TEXT abgelegt wird. Dazu besorgen wir uns die 
Startadresse von TEXT sowie den Lauf index der Schleife. Auf die- 
sen Wert addieren wir 2 (da ja die ersten beiden Bytes von TEXT 
zur Speicherung der Zeichenzahl dienen) , und nach Addition mit- 
tels + erhalten wir die richtige Adresse. An dieser speichern wir 
sodann mit C! die Benutzereingabe. Dieser ProzeB wiederholt sich 
bei jedem Schleif endurchgang , bis TEXT die gewiinschten Daten 
enthalt. Da es aber sein kann , daB der Benutzer nicht 1024 Zei- 
chen eingeben, sondern vorzeitig aufhoren will, uberpriifen wir 
noch auf ein spezielles Endezeichen in Zeile 5. Dazu vereinbaren 
wir, daB die Eingabe in den Array TEXT beendet wird, sobald der 
Benutzer "#" eingibt; dieses Zeichen hat den ASCII-Code 35. 
Naturlich mussen Sie nicht unbedingt das # als Endezeichen ver- 
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wenden; jedes andere Zeichen ist moglich, allerdings ist zu 
bedenken, daB dieses Zeichen in normalem Textmaterial vermutlich 
nicht vorkommt. Nun zu Zeile 5, in der iiberpriift wird, ob der 
Benutzer die #-Taste gedruckt hat. Dazu subtrahieren wir 35 vom 
obersten Stack-Eintrag und uberpriifen mit 0= auf Gleichheit mit 
0. Wenn 0= ein "wahres" Flag hinterlaBt, dann ist es Zeit, die 
Schleife zu beenden, wofur LEAVE sorgt. Nach Verlassen der 
Schleife mussen wir jedoch noch die Anzahl der eingegebenen Zei- 
chen an den Anfang des Arrays schreiben. Dazu erniedrigen wir den 
Schleifenindex um 1 (I 1-). Diese Zahl wird ganz am Anfang des 
Speicherbereichs fur TEXT abgelegt. Jetzt sind wir mit SPEICHERE 
fertig, und der Array TEXT enthalt die Zeichen, die der Benutzer 
von der Tastatur eingegeben hat. In den ersten beiden Bytes des 
Arrays steht auBerdem noch, wie viele Zeichen er eingegeben hat. 

Die Zeilen 9 bis 13 der Abbildung 7-1 zeigen das Wort AUSGABE , 
mit welchem man den Text im Array TEXT auf dem Bildschirm anzei- 
gen kann . Das Wort besorgt sich zuerst in Zeile 10 die Anzahl der 
auszugebenden Zeichen und legt sie auf den Stack. Dieser Wert 
dient als Testwert fur eine DO-Schleife, deren Schleif enkorper in 
Zeile 11 beginnt. Hier wird der ASCII-Code jedes im Array gespei- 
cherten Zeichens geholt; EMIT wandelt diesen Code dann in das 
entsprechende Zeichen um und gibt es auf dem Bildschirm aus. 
Dieses Verfahren wiederholt sich bei jedem Eintrag im Array TEXT. 
Wir wollen einmal sehen, ob es uns gelingt, Textmaterial an 
beliebiger Stelle in den Array TEXT einzufugen. Dies ist eine 
Fahigkeit, uber die jedes Textverarbeitungsprogramm verfugen muB. 
Das Programm aus der Abbildung 7-2 lost diese Aufgabe. 

Wenden wir uns nun diesem neuen Programm zu, dem wir den Namen 
EINFGN gegeben haben. Wir gehen davon aus, daB der Block aus der 
Abbildung 7-1 geladen ist und bereits Daten in den Array TEXT 
eingegeben wurden. Im Programm der Abbildung 7-2 nehmen wir fer- 
nerhin an, daB der einzufiigende String hochstens 10 Zeichen lang 
ist. Die Einf iigezeichen werden in einem separaten Array zwi- 
schengespeichert , der den Namen EINFBUF tragt und in Zeile 1 der 
Abbildung 7-2 vereinbart wird. Wie schon in den anderen Program- 
men dienen die ersten beiden Bytes von EINFBUF dazu, die Anzahl 
der tatsachlich einzuf iigenden Zeichen zu speichern. Die Zeichen 
selbst stehen dann im Rest des Arrays. Wir konnen die Zahl der 
Zeichen, die eingefiigt werden konnen, beliebig vergroBern , indem 
wir diesen Zwischenspeicher erweitern. 
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0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
1 2 
1 3 
14 
1 5 


( Einfuegen eines Strings ) 

VARIABLE EINFBUF 1 0 ALLOT VARIABLE POINT 

: EINFGN CR AB WO SOLL EINGEFUEGT WERDEN? " #IN POINT ! 

CR . " BIS ZU 10 EINFUEGEZEICHEN EINGEBEN " CR 
101 DO KEY DUP EMIT DUP 

C! 


11 + 4 

I I 
THEN 


LOOP 
TEXT 

TEXT 

EINFBUF 


EINFBUF 
EINFBUF 
IF LEAVE 
CR 

2 + POINT 

1 POINT i 
2 + TEXT 


35 
I 1- 


0 = 

EINFBUF I 


§ 


DUP 
<MOVE 
POINT 


EINFBUF 


EINFBUF 
EINFBUF § 


§ CMOVE 
WORDS + 1 


ABBILDUNG 7-2: Einfiigen von Textmaterial in den Array WORDS 


In der Fachsprache der Programmierer werden solche Zwischenspei- 
cher auch Puffer genannt. Wir benotigen noch eine zweite Varia- 
ble, die wir POINT nennen und in der wir uns die Position merken , 
an der der Text in den Array TEXT eingefugt werden soil; diese 
Variable wird ebenfalls in Zeile 1 vereinbart. 

Das eigentliche Einfugeprogramm mit dem Namen EINFGN fragt als 
erstes den Benutzer nach der Stelle, an der die neuen Zeichen in 
den bereits existierenden Text eingefugt werden sollen. Er soil 
dazu eine einfach genaue Integer eingeben, die wir in der Varia- 
blen POINT aufheben. Als nachstes wird - in Zeile 3 - der Benut- 
zer auf gefordert , den einzuf iigenden Text (maximal 10 Zeichen) 
einzugeben; wie auch bereits bei dem letzten Programm, wird die- 
ser Text wieder durch das "#" abgeschlossen . Die Zeilen 4 bis 8 
stellen eine Programmschleif e dar , die den Einfugetext einliest 
und im Puffer EINFBUF zwischenspeichert . Wir folgen dabei den 
Verf ahrensschri tten , die wir bereits aus Abbildung 7-1 kennen. 
Nach Verlassen der Schleife steht der einzufugende Text fest, und 
der eigentliche Einf iigevorgang kann beginnen. Dazu beschaffen wir 
uns zuerst im Array TEXT geniigend Platz , indem wir Teile dieses 
Textes im Arbeitsspeicher verschieben. Die erste zu verschiebende 
Adresse ergibt sich aus der Anf angsadresse von TEXT, auf die wir 
2 und den in der Variablen POINT gespeicherten Wert addieren. Die 
Addition der Zwei ist notig, weil die ersten beiden Bytes des 
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Arrays fur die Zeichenzahl im Array reserviert sind. Als nachstes 
berechnen wir die Endadresse des zu verschiebenden Blockes. Dazu 
duplizieren wir die soeben berechnete Anf angsadresse und addieren 
darauf die Anzahl Zeichen, die aus dem Puffer EINFBUF eingefugt 
werden sollen. Diese finden wir natiirlich in den ersten beiden 
Bytes von EINFBUF. Bezogen auf das Stack-Diagramm 7-6 haben wir 
jetzt die Werte a^ U nd a.^ auf den Stack gelegt. Es verbleibt nun 
noch, die Gesamtzahl der zu verschiebenden Zeichen zu berechnen. 
Wir erhalten diese Zahl , indem wir von der Anzahl der in TEXT 
gespeicherten Zeichen die Anzahl der Zeichen abziehen, die vor 
der Einftigeposition in POINT stehen. Zeile 10 der Abbildung 7-2 
fiihrt die notigen Berechnungen aus und sorgt mittels <CMOVE da- 
fur, daB die Verschiebung stattfindet. 

Jetzt ist im Array TEXT eine Liicke entstanden, die groB genug 
ist, urn den Einfugetext aufzunehmen. Beach ten Sie, daB diese 
"Liicke" nicht leer ist, sondern nach wie vor die alten Daten ent- 
halt, die jedoch dupliziert wurden und so ohne Probleme iiber- 
schrieben werden konnen. Um nicht versehentlich unsere Verschie- 
bedaten zu zerstoren, haben wir das Wort <CMOVE verwendet an- 
stelle des einfachen CMOVE. 

Wir konnen jetzt die Daten aus unserem Puffer in die Liicke im 
Array TEXT iibertragen. Nach Ausfiihrung der Zeilen 11 und 12, aber 
ehe das Wort CMOVE zur Ausfiihrung gelangt, befinden sich folgende 
Informationen als einfach genaue Integers auf dem Stack: Die 
Adresse des Puffers plus 2 als dritter Stack-Eintrag ; dabei han- 
delt es sich um die Anf angsadresse des Datenblockes fur die nach- 
folgende Verschiebeoperation . Die Zieladresse ist der zweite 
Stackeintrag; man erhalt sie aus der Anf angsadresse von TEXT, er- 
hoht um 2, sowie der Zahl, die in POINT gespeichert ist. An 
oberster Stack-Position finden wir schlieBlich die Anzahl der 
Zeichen, die im Puffer EINFBUF gespeichert sind und die eingefugt 
werden sollen. Damit ist alles fur die Einfiigeoperation vorberei- 
tet, und wir konnen - entweder mit CMOVE Oder mit CCMOVE - den 
Verschiebevorgang auslosen. Welche der beiden Blockoperationen 
wir wahlen, ist in diesem Falle bedeutungslos , da sich die Ver- 
schiebedaten nicht irrtiimlich selbst uberschreiben konnen. 

Nachdem der Verschiebevorgang abgeschlossen ist, mussen wir noch 
die Zeichenzahl aktualisieren , die wir uns am Anfang von TEXT 
merken. Dies besorgt Zeile 13 des Programms . Die Ausgangszahl - 
also die Anzahl Zeichen vor dem Einfugevorgang - wird um die An- 
zahl der Einfugezeichen erhoht; letztere finden wir am Anfang des 
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Puffers EINFBUF. Wir haben in Zeile 13 das Wort + ! angewendet und 
so die beiden Vorgange Addieren und Speichern in moglichst knap- 
per Form bewirkt. 

An dieser Stelle ist einige Vorsicht geboten; Sie mussen aufpas- 
sen, daft Sie nicht versehentlich zu viele Zeichen einfiigen. Der 
Array TEXT kann ja nur insgesamt 1024 Zeichen aufnehmen. Wenn Sie 
nun versuchen, in TEXT neue Zeichen einzufiigen, so dab sich eine 
Gesamtzeichenzahl von mehr als 1024 ergibt, dann kann es sein, 
daB Sie damit Teile des FORTH-Worterbuches uberschreiben . Even- 
tuell mussen Sie dann Ihr FORTH-System neu starten und verlieren 
dabei alle Ihre Daten. Sie konnen zwar mit dem Programm von Ab- 
bildung 7-1 nicht mehr als 1024 Zeichen in einen Array schreiben. 
Nichts und niemand hindert Sie jedoch daran, durch wiederholte 
Anwendung von EINFGN eine groBere Anzahl an Zeichen einzufiigen 
und somit die Grenze von 1024 zu uberschrei ten . Urn dies zu ver- 
hindern, sollte man das FORTH-Wort EINFGN urn eine zusatzliche 
Uberpriifung erweitern , in der nachgesehen wird, ob die Sumne der 
einzufugenden Zeichen und der bereits vorhandenen Zeichen den 
Wert 1 024 iibersteigt. 

TYPE - Mit dem FORTH-Wort TYPE konnen Zeichenketten (Strings) 
ausgegeben werden , die im Speicher des Computers stehen. Ein 
Beispiel fur die Anwendung von TYPE sieht folgendermaBen aus : 

TEXT 2+15 TYPE 

Dies fuhrt dazu, daB, beginnend bei der Adresse TEXT plus 2, 15 
Zeichen aus dem Array ausgegeben werden. TYPE besitzt folgende 
Stack-Relation: 

a n — > 


7.2 Weitere Worter fur die Zeicheneingabe 

Wir machen Sie jetzt mit einigen weiteren FORTH -Kommand os ver- 
traut, die zur Eingabe von Zeichendaten dienen. Sie konnen sie in 
Ihre eigenen Definitionen mit einschlieBen . Das FORTH-System 
selbst macht heftigen Gebrauch von diesen Wortern , da mit ihrer 
Hilfe die Eingabe von Zeichen in das System organisiert wird. 
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EXPECT - Mit Hilfe des FORTH-Wortes EXPECT kann man eine ganze 
Folge von Zeichen (einen String) eingeben. Eine typische Anwen- 
dung sieht etwa so aus : 


TEXT 10 EXPECT (7-11) 

Dabei gehen wir davon aus, daS der Array TEXT vor der Ausfilhrung 
von (7-11) vom Benutzer vereinbart worden ist. Wenn wir (7-11) 
eingeben, dann unterbricht das System seine Arbeit und wartet 
darauf, daB der Benutzer Zeichen eingibt. In diesem Fall werden 
10 Zeichen erwartet (englisch: "to expect"), da dies die Zahl 

war, die das Wort EXPECT bei seinem Aufruf auf dem Stack vorfand. 
Die Zeichen werden in den Array TEXT eingegeben, wobei mit der 
Startadresse von TEXT begonnen wird, da sich diese nach Aufruf 
des Arraynamens auf dem Stack befindet. Das System fahrt so lange 
mit der Zeicheneingabe fort, bis der Benutzer entweder 10 Zeichen 
eingegeben oder bis er die Return-Taste gedriickt hat. Das Wort 
EXPECT hat folgende Stack-Relation: 

a n — > (7-12) 


In Abbi Idung 7-3 sehen Sie ein einf aches Beispielprogramm , das 
EXPECT einsetzt . In Zeile 1 vereinbaren wir einen Array, der zur 
Aufnahme von Zeichen bestimmt ist und den Namen LETTERS tragt. 
Darauf folgt, beginnend mit Zeile 2, die Definition des Worts 
CHAR; in diesem Wort werden zuerst mittels EXPECT 10 Zeichen 
(oder weniger, je nach Benutzereingabe) im Array LETTERS abge- 
speichert. AnschlieBend wird die Information wieder ausgegeben, 
und zwar sowohl die eingegeben Zeichen als auch deren ASCII-Code. 
Dazu benutzen wir sowohl das Wort EMIT als auch das Punktkomman- 
do. Um sowohl das Zeichen als auch dessen ASCII-Code ausgeben zu 
<onnen, rruissen wir zuvor jedes Zeichen mittels DUP duplizieren. 

DemaB seiner Vereinbarung konnen wir in dem Array LETTERS genau 
10 Zeichen speichern . Oft weisen wir zwei zusatzliche Bytes an 
Speicherplatz in einem Array zu , um darin als einfach genaue In- 
teger die Anzahl der Zeichen in einem Array zu speichern. Andere 
FORTH-Systeme verfahren wiederum anders , in ihnen werden ein oder 
zwei Sonderzeichen hinter die eingegebene Textinforma tion ge- 
schrieben, an denen das System das Ende eines Strings erkennt. 
Diese Endemarkierung wird automatisch von EXPECT angefiigt. 
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0 ( Einfaches Beispiel fur EXPECT ) 

1 VARIABLE LETTERS 8 ALLOT 

2 : CHAR LETTERS 1 0 EXPECT CR 

3 10 0 DO LETTERS I + C DUP EMIT 

4 LOOP ; 

5 


ABBILDUNG 7-3: Anwendungsbeispiel fur EXPECT 


Vergewissern Sie sich anhand Ihrer Sprachbeschreibung , welchen 
Konventionen Ihr EXPECT folgt, und vergessen Sie dann nicht, 
entsprechend ausreichenden Speicherplatz fur Strings bereitzu- 
stellen. 

WORDS j >INj HERE und BLK - Wenn Sie von der Tastatur Ihre Befehle 
an das FORTH-System geben , dann erscheinen Ihre Eingaben dem 
System erst einmal als eine unzusammenhangende Folge von Zeichen. 
Um zu "verstehen” , was Sie meinen, muB das System diesen Zeichen- 
strom als erstes in sinnvolle Einheiten aufteilen, d.h., es muB 
erkennen , welche Ihrer Eingaben FORTH-Worter sind und bei welchen 
es sich um Daten handelt, die auf den Stack gelegt werden sollen. 
Dazu sucht das System nach speziellen Begrenzungszeichen Oder 
Trennzeichen , an denen es die Wortgrenzen erkennen kann. Das 
wichtigste Trennzeichen in FORTH ist naturlich das Leerzeichen, 
es gibt aber auch noch andere Trenner. Mit dem FORTH -Kommando 
WORD konnen Sie auBerdem vereinbaren, welches Zeichen als Trenn- 
zeichen fungieren soli. WORD macht aber noch mehr: Wenn es geru- 
fen wird , liest es so lange Zeichen von der Tastatur, bis das 
vereinbarte Trennzeichen auftaucht. Betrachten Sie dazu folgendes 
Beispiel : 


32 WORD 


(7-13) 


WORD entfernt die 32 vom Stack und merkt sich, daB es sich dabei 
nun um ein Trennzeichen handelt. Bei der 32 handelt es sich je- 
doch um den ASCII-Code fur ein Leerzeichen. Hatten wir anstelle 
von 32 den Wert 35 auf den Stack gelegt, dann ware das "#" neues 
Trennzeichen in unserem System. 
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;achdem es sich nun das (eventuell neue) Trennzeichen gemerkt 
r.at, liest WORD so lange Zeichen von der Tastatur, bis es auf 
dieses Trennzeichen stoBt. Die eingelesenen Zeichen werden ge- 
speichert, und die Anf angsadresse des Speicherbereichs , in dem 
sie abgelegt wurden , wird von WORD auf den Stack gelegt. Zusatz- 
lich zu den eingegebenen Zeichen enthalt das erste Byte an dieser 
Adresse eine Integer (die allerdings nur ein Byte lang ist) , wel- 
che die Anzahl der eingegebenen Zeichen angibt. Denken Sie daran, 
da£ WORD nur so lange Ihre Eingabedaten von der Tastatur spei- 
chert, bis es auf das Trennzeichen stoBt. Wenn Sie Ihre Eingaben 
^edoch mit einer Folge von Trennzeichen einleiten, dann werden 
diese ignoriert. WORD beginnt also erst dann mit der Speicherung, 
wenn Sie ein Nich t-Trennzeichen von der Tastatur eingeben , und 
hort damit auf, wenn danach wieder ein Trennzeichen erscheint. 

Zum "Wortschatz" von FORTH-79 gehort auch das Wort HERE, welches 
die Adresse des nachsten freien Worterbucheintrags liefert. Bei 
Ausfuhrung von WORD wird der eingelesene String ab der Adresse 
gespeichert, die man uber HERE erhalt. (Hier konnen sich einzelne 
: ORTH-Systeme voneinander unterscheiden ; Sie soil ten die Einzel- 
heiten in Ihrem Systemhandbuch iiberprufen.) 

Tatsachlich ist die Arbeitsweise von WORD komplizierter , als wir 
es bisher dargestellt haben. Nehmen wir an, der Benutzer gibt 
eine Folge von Wortern ein, wobei das Leerzeichen als Trenner 
rungiert. So, wie wir WORD bisher geschildert haben, wurde es nur 
das erste Wort speichern, da der EinleseprozeB beim ersten Trenn- 
zeichen abgebrochen wird. Es gibt jedoch ein weiteres FORTH-Wort, 
mit dem diese Situation geandert werden kann. Es lautet >IN und 
ist der Name einer Variablen in FORTH-79. Die unter >IN gespei- 
cherte Zahl gibt an, wieviel Zeichen der Benutzereingabe FORTH 
uberlesen soil, ehe es durch WORD die Eingabekette des Benutzers 
verarbeitet. Falls wir in >IN beispielsweise den Wert 3 stehen 
haben, dann werden die ersten drei Zeichen, die der Benutzer auf 
der Tastatur tippt , ignoriert, wenn wir WORD aufrufen. Die in >IN 
gespeicherte Zahl kann sich zwischen 0 und 1023 bewegen . 

Wir mussen noch ein weiteres wichtiges FORTH-Wort besprechen. 
Bisher sind wir davon ausgegangen, daB die Eingaben an das System 
von der Tastatur kommen. Dies muB aber nicht so sein; genausogut 
konnen die Eingaben von der Diskette stammen. Wenn also WORD ge- 
rufen wird, dann miissen Sie zuerst dem FORTH-System mitteilen, 
von welcher Quelle die Eingabedaten kommen. Diese Information 
wird in einer anderen Standardvariablen von FORTH gesppichert, 
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die den Namen BLK tragt. Falls die in BLK gespeicherte Zahl 
gleich 0 ist, dann geht FORTH davon aus, daB die Eingaben an das 
System von der Tastatur kommen. (Die Details von Diskettenopera- 
tionen werden wir erst im nachsten Kapitel kennenlernen . ) 


0 (Einfaches Beispiel mit WORD) 

1 : SCAN 0 BLK ! 5 >IN l 

2 1 + 1 DO HERE 

3 CR CR QUIT ; 

4 

5 


32 WORD C@ CR 
I + C@ EMIT LOOP 


ABBILDUNG 7-4: Ein Beispiel fur die FORTH-Worter WORD, >IN, HERE 

und BLK 


Am Beispiel von Abbildung 7-4 wird die Arbeitsweise der soeben 
vorgestellten FORTH-Worter deutlicher. Das in dem Beispiel defi- 
nierte Wort mit dem Namen SCAN legt als erstes fest, daB die Ein- 
gaben von der Tastatur kommen. Dies geschieht, indem wir in der 
Variablen BLK eine 0 speichern. Als nachstes vereinbaren wir, daB 
WORD die nachsten 5 Zeichen der Benutzereingabe ubergehen soil. 
Der Grund dafur wird gleich klar werden. Wir bewirken dies, indem 
wir in der Variablen >IN eine 5 speichern. Dann rufen wir WORD, 
wobei wir durch eine auf den Stack gelegte 32 dafur sorgen , daB 
das Leerzeichen als Trennzeichen gilt. Nachdem WORD seine Aufgabe 
erledigt und die Eingabezeichen untersucht hat, findet sich die 
Adresse aus HERE auf dem Stack. Die Zahl, die an dieser Stelle 
gespeichert wird, besorgen wir uns nun mittels C . Sie entspricht 
der Anzahl der eingelesenen Zeichen. Auf diese Anzahl addieren 
wir 1 und haben somit alle Vorbedingungen fur den Eintritt in 
eine Schleife erfullt, die uns die eingelesenen Zeichen ausgeben 
soli. Beachten Sie, daB wir als Anf angsadresse dabei die Variable 
HERE angegeben haben. Wir beenden das Programm mit dem Wort QUIT. 
Wurden wir diese VorsichtsmaBnahme unterlassen, dann wurden alle 
sonst noch bei Ausfuhrung von WORD eingegebenen Zeichen anschlie- 
Bend als Eingaben in das FORTH-System interpretiert werden. 

Angenommen, wir laden den Block aus Abbildung 7-1 und tippen an* 
schlieBend ein: 

SCAN WEISST DU WIEVIEL STERNLEIN STEHEN (RETURN) (7-1 4a) 
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Zaraufhin bekommen wir folgendes auf dem Bildschirm zu sehen: 


WEISST 


( 7-1 4b) 


*ie Sie wissen, ist in der Variablen >IN eine 5 gespeichert; 
ieshalb werden die ersten 5 Zeichen des Eingabes troms von SCAN 
Icergangen. Dies bewirkt, daB das Wort SCAN selbst iiberlesen und 
erst das erste Wort des Satzes ausgegeben wird. Wenn wir (7-1 4a) 
ringeben, dann sorgt der Befehl SCAN dafiir, dafi das Programm aus 
Abbildung 7-4 aufgerufen wird. Zu diesem Zeitpunkt befindet sich 
icer noch der ganze eingegebene Text einschlieBlich des Schliis- 
selwortes SCAN im Eingabestrom. Deshalb vereinbaren wir in Zeile 
* unseres Programms , daB die ersten fiinf Zeichen ubergangen wer- 
ien sollen. Wurden wir dies unterlassen, dann wurde das Programm 
=us Abbildung 7-4 stets nur das Wort SCAN ausgeben und sich urn 
veitere Benutzereingaben nicht kummern. Hatten wir schlieBlich 
auf das QUIT in Zeile 3 verzichtet und gaben 7-1 4a ein, dann wiir- 
ie das FORTH-System versuchen, das Wort DU als FORTH-Kommando zu 
mterpretieren und dabei vermutlich auf einen Fehler laufen. 

QUERY - Im vorigen Beispiel muBten wir den Wert von >IN auf 5 
setzen, damit die vier Buchstaben des selbstdef inierten Wortes 
SCAN nicht versehentlich beim Aufruf dieses Wortes mit eingelesen 
werden. Es gibt jedoch ein spezielles FORTH-Wort, mit dem dieses 
vermieden werden kann; es lautet QUERY. Wenn wir dieses Wort 
rufen, dann werden die nachsten 80 von der Tastatur eingegebenen 
Zeichen im Eingabepuf f er gespeichert. Im Puffer befinden sich 
somit nur die Zeichen, die nach Aufruf des Wortes QUERY eingege- 
ben wurden , nicht aber die Zeichenfolge "QUERY” selbst. QUERY 
stellt den Einlesevorgang ein, wenn entweder 80 Zeichen vom Be- 
nutzer getippt oder die Return-Taste gedriickt wurde . Falls sowohl 
m BLK als auch in >IN eine 0 gespeichert ist, dann liest WORD 
seine Inf ormationen aus dem Eingabepuf fer . Wir brauchen also nur 
das Programm in 7-4 so abzuandern, daB wir die 5 in Zeile 2 durch 
eine 0 ersetzen und vor der 32 in dieser Zeile das Wort QUERY 
einfugen. Jetzt befindet sich nach Aufruf von SCAN das Wort 
"SCAN" selbst nicht im Eingabepuf fer , wenn wir WORD rufen. Das 
Programm gibt also auch nach dieser Veranderung das korrekte 
Ergebnis aus. 
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7 . 3 Stringverarbeitung 


In diesem Abschnitt lernen wir einige FORTH-Worter kennen , die 
bei der Bearbeitung von Strings sehr niitzlich sind. Wiederum 
befinden sich nicht alle diese Worter im FORTH-7 9-Standard , sie 
sind jedoch Teil von MMSFORTH und anderen FORTH-Systemen . Schla- 
gen Sie in Ihrem Handbuch nach, um herauszuf inden , welche Befehle 
I hr FORTH-System kennt und gegebenenf alls , welchen Namen die be- 
treffenden Worter dort haben. 


7.3.1 Stringkonstanten , Variable und Arrays 

Ebenso wie bei anderen Datentypen kann man auch Konstanten, Va- 
riable und Arrays definieren, die zur Speicherung von Strings 
dienen. Bereits in Abschnitt 7-1 haben wir besprochen , wie man 
dies mit Wortern aus dem "Wortschatz" von Standard-FORTH errei- 
chen kann. Wir wenden uns nun einigen nichts tandardisierten Wor- 
tern zu, die bequemer in der Handhabung sind. Zur Vereinbarung 
einer String-Kons tante dient das Wort $CONSTANT. In vielen Pro- 
grammiersprachen , einschlieBlich BASIC, dient das Dollar-Zeichen 
zur Markierung von Stringausdriicken . Hier ein Beispiel fur die 
Anwendung von $CONSTANT: 

$CONSTANT EINE KONSTANTE" (7-15) 


Beachten Sie, daS in dieser Befehlsfolge nur ein einzelnes Anfiih- 
rungszeichen vorkommt. In diesem Fall haben' wir eine Stringkon- 
stante vereinbart, der wir den Namen EINE gegeben haben. Diese 
Kons tante enthalt den String KONSTANTE. Im ersten Byte von EINE 
findet man eine ein Byte lange Integer, die die Lange des abge- 
speicherten Strings angibt. Im Beispiel (7-15) ist die Lange des 
Datenbereichs fur den Worterbucheintrag EINE genau 9 Byte. Bei 
Ausfiihrung von EINE wird die Adresse des ersten Bytes auf den 
Stack gelegt. Dieses Verfahren unterscheidet sich also von dem, 
das bei numerischen Konstanten iiblich ist. Zur Vereinbarung einer 
Stringvariablen dient entsprechend das Wort $ VARIABLE . Ein Bei- 
spiel fur seinen Einsatz: 
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20 $VARIABLE ABC 


(7-16) 


In diesem Fall vereinbaren wir einen Worterbucheintrag mit dem 
amen ABC, der fur 21 Byte Platz hat. Bei Einrichtung der Varia- 
ilen werden alle diese Bytes mit dem Wert 0 besetzt. Auch hier 
i^ent das erste Byte oftmals dazu, die Lange des Strings festzu- 
-alten, der in der Variablen ABC gespeichert ist. Dies geschieht 
jedoch nicht automatisch. Der Programmierer mufi selbst dafiir sor- 
gen, daB die notwendigen Inf ormationen festgehalten werden. Die 
Snack-Relation fur $VARIABLE lautet: 


n 


— > 


(7-17) 


Stringvariable und Stringkons tanten werden in gleicher Weise 
verwendet. Im Unterschied zu einer Variablen wird bei einer 
Stringkonstante jedoch der Konstantenwert zu dem Zeitpunkt be- 
stirrmt, in dem die Konstante vereinbart wird. Es wird jedoch spa- 
cer noch deutlich werden, daB wir - ebenso wie bei Stringvaria- 
olen - auch bei Stringkonstanten den String mit speziellen FORTH- 
Wortern lesen und verandern konnen. Auch dies unterscheidet sich 
von der Behandlung, die numerische Konstanten und Variable in 
FORTH erfahren. 

SchlieBlich gibt es noch ein Wort, mit dem man in FORTH-Stringar- 
rays vereinbaren kann; es lautet $ARRAY. Aus Kapitel 7-1 wissen 
wir bereits, dafl man Stringarrays auch mit ALLOT vereinbaren 
<ann. Die Handhabung von $ ARRAY ist jedoch bequemer , allerdings 
ist dies kein Wort des FORTH-79-Standards . Hier ein Anwendungs- 
beispiel: 


20 10 $ARRAY LETTERS (7-18) 


In diesem Beispiel haben wir einen Array mit dem Namen LETTERS 
vereinbart, der aus 11 Elementen besteht. Jedes dieser 11 Elemen- 
te kann bis zu 21 Byte speichern. $ ARRAY hat die Stack-Relation 


n , — > 


(7-19) 
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Beachten Siej da6 n 2 +1 gleich der Anzahl der Elemente im Array 
ist, wahrend n^+1 gleich der Anzahl Bytes ist, die in jedem 
Arrayelement gespeichert werden konnen (die Stringlange ) . Alle 
Arrayelemente werden bei Definition des Arrays mit 0 vorbesetzt. 
Wenn wir die Adresse des ersten Bytes vom dritten String des 
Arrays LETTERS auf dem Stack haben wollen, dann geben wir ein: 

3 LETTERS 

Auch zweidimensionale Stringarrays sind moglich; man vereinbart 
sie mit 2$ARRAY. Diese Vereinbarung muB folgende allgemeine Form 
haben: 


n (j n 2 n 3 2$ ARRAY TABELLE 


(7-20) 


Hier wird ein zweidimensionaler Array vereinbart, der n.^+1 Zeilen 
und n^+1 Spalten hat. Jedes Element in dieser "Tabelle* ist sei- 
nerseits ein String, der maximal n^ Byte lang sein kann. n 1 darf 
in diesem Fall den Wert 254 nicht ubersteigen. Wir haben folgende 
Stack-Relation : 


n„ n 


1 “2 3 


— > 


(7-21 ) 


Auch hier werden alle Arrayelemente mit dem Wert 0 vorbesetzt. Urn 
die Adresse des Strings in Zeile 3 und Spalte 5 von TABELLE auf 
dem Stack zu erhalten, mussen wir eingeben: 

3 5 TABELLE 

Denken Sie daran , daB bei der Numerierung von Zeilen und Spalten 
in einem Array mit Null begonnen wird. 
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7.3.2 Stringverarbeitung 


*_r stellen als nachstes dar , wie man Strings speichern, auslesen 
—td manipulieren kann. Als erstes lernen wir das Wort $! kennen. 
-rgenommen, wir haben bereits Daten in einer Stringvariablen oder 
5 :rmgkonstanten mit dem Namen ABC und wollen jetzt, daB diese 
Zazen in eine andere Stringvariable dupliziert werden, welche den 
'Lien TOP tragt. Dies erreichen wir mit folgender Wortfolge: 


ABC TOP $1 


(7-22) 


lie Verfahren bei der Arbeit mit Strings unterscheiden sich von 
ienen , die wir von Zahlen her gewohnt sind. Das kommt daher , weil 
es meistens sinnlos ist, einen ganzen String auf den Stack zu 
_egen. Falls der in der Variablen ABC langer als der ist, der 
sich in TOP befindet, dann werden Teile des Worterbuches iiber- 
schrieben. Dies miissen Sie unbedingt vermeiden. Zur Ausgabe eines 
Strings benutzen wir den Befehl $.. Wir konnen den in TOP gespei- 
zherten String mit folgendem Befehl ausgeben: 


TOP $. 


(7-23) 


$. erwartet also die Adresse eines Strings auf dem Stack, weswe- 
;en seine Stack-Relation lautet: 


a — > 


(7-24) 


Ermnern Sie sich daran , daB wir mit "a" in Stack-Relationen 
Adressen bezeichnen. Im Arbeitsspeicher des FORTH-Systems gibt es 
einen speziellen Speicherbereich , das Scratch pad (wortlich etwa 
Schmierzettel" ) . Hierbei handelt es sich urn eine Gruppe von 
peicherstellen , die zur temporaren Zwischenspeicherung von 

tringdaten und anderen Inf ormationen dient. Die Anf angsadresse 
dieses Bereichs ist in der FORTH-79-Variablen PAD gespeichert. 
Bei wachsendem Worterbuch andert sich auch die Lage dieses Be- 
reichs im Arbeitsspeicher. Die Ausfiihrung des Wortes PAD fiihrt 
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dazu, daB die Adresse des ersten Bytes in diesem speziellen Ar- 
beitsbereich auf den Stack gelegt wird. 

Manchmal wollen wir einen neuen String aus zwei bereits existie- 
renden Strings formen, indem wir diese hintereinanderschreiben . 
Man nennt diese Operation Verkettung Oder auch Konkatenation . Das 
FORTH-Wort, das eine Konkatenation zweier Strings bewirkt, lautet 
$+ und funktioniert folgendermaSen : 


ABC TOP $+ 


(7-25) 


Dadurch wird der in TOP gespeicherte String an den in der Varia- 
blen ABC gespeicherten String angehangt. Das Ergebnis der Verket- 
tung finden wir in PAD. Deswegen hinterlaBt die Operation $+ auch 
die Adresse von PAD als Ergebnis auf dem Stack. Bei der Verket- 
tung von Strings sollten Sie mit Vorsicht vorgehen. Das Ergebnis 
der Verkettung wird danger als jeder der beiden Ausgangs strings . 
Versuchen Sie deshalb nicht, ein Verkettungsergebnis in einem 
Worterbucheintrag zu speichern, der dafur zu klein ist. Fur das 
Wort $+ erhalten wir die Stack-Relation: 


a $1 a $2 > a pad 


(7-26) 


Man kann einen String auch direkt von der Tastatur eingeben, in- 
dem man sich des Wortes $" bedient. Hier ein Beispiel: 


$" WEISST DU WIEVIEL STERNLEIN STEHEN" (7-27) 

Beachten Sie das Leerzeichen nach dem ersten Anf iihrungszeichen . 
Der einzugebende String wird von einem zweiten Anf iihrungszeichen 
abgeschlossen . Wenn wir das Beispiel (7-27) tippen und anschlie- 
Bend RETURN driicken , dann wird der eingegebene String im Arbeits- 
speicher abgelegt, wobei als Ergebnis des $■ die Anf angsadresse 
des Strings auf den Stack gelegt wird. Sollte $" in der Defini- 
tion eines eigenen FORTH-Wortes vorkommen , dann wird der String 
im nachsten verfugbaren Worterbucheintrag abgelegt. 
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Gelegentlich ist es wiinschenswert , daB ein Programm den Benutzei 
zur Eingabe eines Strings auffordert. Dies erreichen wir mit dem 
Wort IN$ . Bei Ausfiihrung dieses Wortes halt das System an und 
oringt ein Fragezeichen auf den Bildschirm. Der Programmbenutzer 
gibt dann einen String ein, welchen er durch RETURN abschlieBt. 
Dieser String wird in PAD abgelegt, wobei die Adresse von PAD auf 
den Stack kommt. Denken Sie daran , dafi es sich bei diesem Spei- 
cherbereich nur um einen temporaren Speicher handelt; Sie soli ten 
so bald wie moglich die dort zwischengespeicherten Daten an eine 
andere Stelle bringen, da durch nachfolgende Programmschritte der 
’Schmierzettel" uberschrieben werden kann . 

Gelegentlich wollen wir in einem Programm auf einzelne Zeichen in 
einem String zugreifen. Diese Notwendigkeit kann z.B. dann auf- 
tauchen, wenn wir einen String in eine andere Variable iibertragen 
und dabei sichergehen wollen, daB wir nicht versehentlich das 
Worterbuch iiberschreiben. In diesem Fall mussen wir die Anzahl 
der zu kopierenden Zeichen beschranken. Dafur konnen mehrere Wor- 
ter eingesetzt werden. Eines davon lautet LEFT$ und wird so ein- 
gesetzt : 

ABC 1 0 LEFTS 

Diese Wortfolge fiihrt dazu, daB die Adresse von ABC und die ein- 
fach genaue Integer 10 auf dem Stack stehen. LEFT$ kopiert dann 
die ersten 10 Zeichen des Strings ABC in den temporaren Arbeits- 
bereich und hinterlaBt dessen Adresse, also den Wert von PAD. Wir 
haben folgende Stack-Relation: 


n — > a , (7-28) 
$ pad 

Es gibt noch zwei weitere Worter , die mit LEFT'S inhaltlich ver- 
wandt sind; eines davon heiBt RIGHT. Dieses funktioniert ahnlich 
wie LEFTS, ubertragt jedoch die letzten n Zeichen des Strings in 
den Arbeitsbereich . Falls es notig ist, Teile aus der Mitte eines 
Strings zu kopieren, verwendet man das Wort MID$. Es hat folgende 
Stack-Relation : 


a $ n 1 


--> a 


pad 


(7-29) 
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In diesem Fall werden Zeichen des Strings an der Adresse a^ in 
den Arbeitsbereich ubertragen. Der Kopiervorgang beginnt dabei 
mit dem n -ten Zeichen, also Zeichen vom Anfang des Strings 
weg. Die Worter LEFT$ , RIGHTS und MID$ andern an dem ursprungli- 
chen String nichts . 

Gelegentlich ist es wunschenswert , die Zeichenketten auszutau- 
schen, die in zwei Stringvariablen abgespeichert sind. Dies be- 
wirkt man mit dem Wort $XCG; Sie sollten hierbei allerdings auf- 
passen, damit Sie nicht einen String an einen dafiir zu kleinen 
Speicherplatz bewegen. Beim Austauschen von Strings wird eben- 
falls der temporare Zwischenspeicher benutzt. Die Stack-Relation 
fur $XCG lautet: 


a 


$1 


a 


$2 


— > n 


(7-30) 


7.3.3 S tringvergleiche 


Strings konnen - ebenso wie andere Datentypen - miteinander ver- 
glichen werden. Dazu gibt es in FORTH spezielle Worter. Mit die- 
sen ist es unter anderem auch moglich, einen String zu durchsu- 
chen, um heraus zuf inden , ob er einen bestimmten Teilstring ent- 
halt . Man mochte also herausf inden , ob eine bestimmte Zeichen- 
folge Teil dieses Strings ist. Besonder s bei Programmen , die mit 
Textverarbei tung zu tun haben , ist dies eine niitzliche Anwendung. 
Eine solche Suche bewirkt man mit dem Wort INSTR. Hier ein Anwen- 
dung sbei spiel : 


ABS TOP INSTR 


(7-31 ) 


In diesem Fall wird der String an der Adresse ABS durchsucht, 
wobei FORTH versucht heraus zuf inden , ob der in TOP gespeicherte 
String darin enthalten ist. Wenn etwa der String in TOP das Wort 
BUCH enthalt und der Wert von ABS lautet DAS BUCH IST AUF DEM 
TISCH, dann hinterlaBt das Wort INSTR nach seinem Aufruf auf dem 
Stack die Integer 4. Dies bedeutet, daB der gesuchte Teilstring 
an der vierten Position im Zielstring zu finden ist. Sollte sich 
im Zielstring kein Vorkommnis des Suchstrings finden lassen, dann 
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“ -sht INSTR den Wert 0 auf den Stack. Wir haben folgende Stack- 
delation: 


$1 *$2 


--> n 


(7-32) 


lit ist es erf orderlich, eine Anzahl von Strings in alphabetische 
-eihenfolge zu bringen. Jedem String kann man einen numerischen 
*»ert zuordnen , der der Position entspricht, die dieser String in 
emer sortierten Liste haben wiirde. So hat z.B. der String "AAA" 
einen kleineren numerischen Wert als " AAB " . Man sagt auch, daB 
ier erste String in der Sortierfolge vor dem zweiten kommt. Ent- 
screchend ist der numerische Wert von "AECDEDE" kleiner als der 
von "ZXE". Ebenso unterscheidet sich der Sortierwert (und der 
AS Cl I -Wert) von Kleinbuchs taben von dem der entsprechenden GroB- 
cuchstaben. Zum Vergleichen zweier Strings - wobei deren numeri- 
sche Werte fur den Vergleich herangezogen werden - benutzt man 
ias Wort $COMPARE; hier ein Beispiel fur seine Anwendung: 


ABC TOP $COMPARE 


(7-33) 


Bei einem Aufruf von $COMPARE wird der numerische Wert des 
Strings, der an der Adresse ABC gespeichert ist, mit dem vergli- 
chen, den der String unter der Adresse TOP hat. Die beiden Adres- 
sen werden vom Stack entfernt, und - je nachdem, wie der Ver- 
gleich ausfallt - die Werte -1 , 0 oder 1 werden auf den Stack 
gelegt. Die Zahl 0 signalisiert , daB die beiden Strings gleich 
sind. -1 druckt aus , daB der erste String (in diesem Fall ABC) in 
der Sortierordnung vor dem zweiten String (TOP) kommt. Im umge- 
kehrten Fall legt $COMPARE den Wert 1 auf den Stack. Die Stack- 
Relation lautet: 


$1 $2 


— > n 


(7-34) 


Als Beispiel fur die String-Manipulation wollen wir jetzt ein 
FORTH-Programm schreiben, das eine Liste von Namen sortiert. Sie 
finden das Programm in Abbildung 7-5. Es benotigt zwei Blocke. 
Wir gehen davon aus, daB Sie diese beiden Blocke geladen haben. 
Wir haben Kommentare in das Programm eingestreut, um Ihnen das 


261 



7 Zeichen und Zeichenf olgen 


Verstandnis seiner Arbeitsweise zu erleichtern. Wenden wir uns 
jetzt den Einzelheiten dieses Programms zu . Es besteht aus insge- 
samt drei benutzerdef inierten FORTH-Wortern . Mit dem ersten, das 
wir ALPHAIN getauft haben , geben wir die Daten ein. Das zweite 
Wort mit dem Namen ALPHAOUT besorgt die eigentliche Sortierarbeit 
und gibt dann das Ergebnis aus. Das dritte Wort, ALPHA, ruft le- 
diglich diese beiden Worter auf. In der ersten Zeile des ersten 
Blockes definieren wir zuerst einen String-Array mit dem Namen 
NACHNAME. Er umfaBt 11 Zeilen, von denen jede 20 Byte lang sein 
kann. Wir definieren des weiteren eine 21 Byte lange Stringvaria- 
ble mit dem Namen TEEM. Weiterhin benotigt das Programm eine 
Stringkonstante , die den Namen Q tragt und aus einer Folge von 20 
Z’s besteht. (Wir gehen davon aus, daB der Benutzer die zu sor- 
tierenden Namen in GroBbuchstaben eingibt.) AbschlieBend werden 
in Zeile 3 noch zwei Variablen mit dem Namen NUMB und NUMBl ver- 
einbart, die zur Speicherung zweier einfach genauer Integers 
dienen. 

Das Eingabewort ALPHAIN beginnt in Zeile 4 des ersten Blockes. In 
den Zeilen 5 und 7 wird der Array NACHNAME initialisiert . In 
jedem String dieses Arrays speichern wir im ersten Byte die 
Stringlange (20). Die verbleibenden Stringelemente setzen wir auf 
0. Dieser Schritt ware unnotig, wenn das Programm immer nur ein- 
mal durchlaufen werden soli. In diesem Fall setzt FORTH ja auto- 
matisch den String-Array auf 0. Wir wollen das Wort jedoch mehr- 
fach aufrufen; in diesem Fall befinden sich nach dem ersten 
Durchgang im Array immer noch die alten Sortierdaten , die fur ein 
korrektes Funktionieren des Programms durch eben diesen Initiali- 
sierungsschritt erst entfernt werden miissen. Zeile 7 speichert im 
ersten Byte des Strings TEMM den Wert 20, vermerkt also ebenfalls 
die Stringlange an dieser Stelle. 

Die Dateneingabe wird in den Zeilen 9 bis 13 besorgt. Dies ge- 
schieht, indem das Programm vom Benutzer die Eingabe einer ein- 
fach genauen Integer verlangt. Diese entspricht der Anzahl von 
Namen, die sortiert werden sollen. Hier sollte der Benutzer kei- 
nen Wert angeben , der groBer als 10 ist. (Genaugenommen konnten 
wir auch noch Zeile 0 unseres zweidimensionalen Arrays benutzen 
und dann 11 Namen sortieren; wir verzichten hier jedoch darauf . ) 
Sollten Sie eine langere Namenliste sortieren lassen wollen, dann 
miissen Sie in Zeile 1 anstelle der 10 den gewiinschten Wert ein- 
tragen. Die eigentlichen Sortierdaten werden in einer Schleife 
(Zeile 11 - 13) eingelesen und im Array NACHNAME gespeichert. 
Wir bedienen uns hierzu des Wortes EXPECT, da man mit diesem Wort 
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0 ( Sortierprogramm - Block 1 von 2 ) 

1 20 10 $ARRAY NACHNAME 20 $VARIABLE TEMM 

2 $CONSTANT Q ZZZZZZZZZZZZZZZZZZZZZ M 

3 VARIABLE NUMB VARIABLE NUMB1 

4 : ALPHAIN (Vanablen initialisieren und Daten eingeben) 

5 10 0 DO 20 I NACHNAME Cl 

6 20 1 DO 0 J NACHNAME I + C! LOOP 

7 LOOP 20 TEMM C! 

8 ( Anzahl der Namen eingeben) 

9 CR. " WIE VIELE NAMEN SOLLEN SORTIERT WERDEN " #IN NUMB ! 

1 0 (Liste der Namen eingeben) 

11 CR NUMB § 1+1 DO • " WIE LAUTET DER NAME NR. " I . 

12 CR 1 NACHNAME 1+ 20 EXPECT CR 

1 3 LOOP CR ; 

14 

15 


0 (Sortierprogramm - Block 2 von 2) 

1 : ALPHAOUT ( Sortieralgorithmus ) 

2 (TEMM auf 20 mal "Z" setzen) 

3 NUMB @ 1 + 1 DO Q TEMM $ I 

4 (Innere Schleife initialisieren und Vergleich starten) 

5 NUMB @ 1 + 1 DO I NACHNAME TEMM $COMPARE 

6 (Namen finden) 

7 0< IF I NUMB1 i I NACHNAME TEMM $! 

8 THEN LOOP 

9 (Namen ausgeben) 

I 0 CR NUMB1 @ NACHNAME $ , 

II (Ausgegebene Namen ' loeschen 1 ) 

1 2 Q NUMB1 @ LASTNAME $ ! 

1 3 LOOP ; 

14 

15 : ALPHA ALPHAIN ALPHAOUT ; 

ABBILDUNG 7-5: Ein Sortierprogramm 


die Anzahl der Eingabezeichen automatisch auf 20 begrenzen kann . 
Dazu muB dem Wort EXPECT allerdings der Wert 20 auf dem Stack be- 
reitgestellt werden (Zeile 12). Die auf den Stack gelegte Adresse 
ist NACHNAME+1 . Dadurch wird die erste in den einzelnen Strings 
gespeicherte Zahl nicht verandert und behalt den bei der Initi- 
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alisierung eingeschriebenen Wert 20 bei. In Zeile 13 endet die 
Definition von ALPHAIN. 

Untersuchen wir jetzt den zweiten Block in der Abbildung 7-11. 
Hier findet der eigentliche Sortiervorgang statt. Wir bedienen 
uns dabei des folgenden Verfahrens: Wir gehen durch die gesamte 
Liste der zu sortierenden Namen und suchen den alphabetisch 
kleinsten Namen heraus. Diesen geben wir dann aus und loschen ihn 
aus der Liste. AnschlieBend gehen wir erneut die ganze Liste 
durch, suchen wieder nach dem kleinsten Namen, der jedoch jetzt, 
bezogen auf die Gesamtliste, der zweitkleins te Name sein muB, da 
ja der kleinste geloscht wurde. Dieser wird ebenfalls ausgegeben 
und geloscht. Der ProzeB wird so lange wiederholt, bis alle Namen 
aus der Liste geloscht sind. Urn den kleinsten Namen in der Liste 
zu finden, vergleichen wir jeden Eintrag mit einem Vergleichs- 
wert, der als erstes aus 20 Zs besteht. 1st der Listeneintrag 
kleiner als der Vergleichswer t (und beim ersten Durchgang ist er 
dies mit Sicherheit immer) , dann wird der Listenwert zum neuen 
Vergleichswert , und der zweite Listeneintrag wird mit dem neuen 
Vergleichswert verglichen. Ist er kleiner, dann ersetzt er den 
Vergleichswert, und wir gehen auf diese Art und Weise die gesamte 
Liste durch. Dadurch ist garantiert, daB wir das jeweils alphabe- 
tisch kleinste in der Liste enthaltene Element finden. 

Das Wort, das all diese Operationen bewirkt, heiBt ALPHAOUT und 
beginnt in Zeile 1 . Es arbeitet mit zwei ineinander verschachtel- 
ten Schleifen. Die erste Schleife geht so oft durch die Liste, 
wie Eintrage in ihr enthalten sind. Die zweite innere Schleife 
sucht bei jedem Durchgang das aktuelle kleinste Element heraus, 
gibt es aus und loscht es. Die auBere Schleife hat als Anfangs- 
wert 1 und als Testwert 1 plus die Anzahl der Namen im Array. In 
Zeile 3 setzen wir in der Variablen TEMM den anfanglichen Ver- 
gleichswert, der aus 20 Zs besteht und somit garantiert am Ende 
einer alphabetisch sortierten Liste zu stehen kommt. Jetzt geht 
es in die innere Schleife. TEMM wird mit jedem Nameneintrag in 
der Liste verglichen; falls der Listeneintrag kleiner als der 
Vergleichswert ist, dann ersetzt er den in TEMM gespeicherten 
Wert. AuBerdem merken wir uns noch in der Variablen NUMB1 , an 
welcher Position im Array der String zu finden ist, der als letz- 
ter den Vergleichswert in TEMM ersetzt hat. Nach einem voll- 
standigen Durchgang durch die innerste Schleife enthalt folglich 
NUMB1 die Zeilennummer des alphabetisch kleinsten Namens in NACH- 
NAME. Diesen Namen geben wir in Zeile 10 aus. Als nachstes wird 
der so gefundene Wert in Zeile 12 geloscht, indem wir lauter Zs 
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in den String schreiben und ihn so an das Ende des Alphabets 
bringen. Es folgt ein neuer Durchgang durch die auBerste Schlei- 
fe. Der im letzten Durchgang gefundene Name - der kleinste in der 
Gesamtliste - kommt jetzt nicht mehr als Kandidat in Frage, da er 
durch eine Folge von Zs ersetzt und somit an das Ende der alpha- 
betischen Liste gebracht worden ist. Wenn wir jetzt zum zweiten 
Mai in die innerste Schleife eintreten, finden wir somit den 
zweiten Namen in der alphabetischen Reihenfolge (bezogen auf die 
Gesamtliste). Das Sortierwort ALPHAOUT endet in Zeile 13. 

Ganz im Sinne der strukturierten Programmierung findet sich in 
Zeile 14 das Wort ALPHA, das lediglich die beiden Hilfsworter 

ALPHAIN und ALPHAOUT aufruft. 


7.3.4 Weitere Stringfunktionen 


Manchmal werden Strings - vor alien Dingen vom Ende her - mit 
Leerzeichen aufgefiillt. Beispielsweise konnten wir fur einen 
String 64 Byte an Platz bereitgestell t haben , von denen aber nur 
25 mit Zeichen beschrieben sind. Der verbleibende Platz wird mit 
Leerzeichen aufgefiillt. Dies kann zu gewissen Problemen fiihren. 
Wenn wir z.B. den String auf einem Drucker ausgeben wollen, so 
sollten die iiberf liissigen nachlauf enden Leerzeichen nicht mit 
ausge"druckt M werden. In FORTH ist es ja ublich, im ersten Byte 
eines Strings die Anzahl der darin gespeicherten Zeichen zu 
vermerken. Es ware nun wiinschenswert , diese Zahl zumindest zeit- 
weilig durch eine zu ersetzen , die die Anzahl der tatsachlich 
gespeicherten Zeichen ohne nachlauf ende Leerzeichen angibt. Diese 
Zahl konnte man dann verwenden , um Druckausga ben zu steuern. Das 
FORTH -Wort -TRAILING tut genau das Gewiinschte: Es legt eine Zahl 
auf den Stack, die gleich der Stringlange abzuglich nachlauf ender 
Leerzeichen ist. Hier ein Beispiel: 


ABC ABC -TRAILING 


(7-35) 


Bei dem Aufruf von -TRAILING wird die erste Adresse von ABC vom 
Stack entfernt und die berichtigte Zeichenzahl des Strings als 
einfach genaue Integer auf den Stack gelegt. Jetzt enthalt der 
Stack also die Anf angsadresse von ABC und die "Nettozeichenzahl" . 
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Letztere ist an oberster Stack-Position. Beachten Sie, daB -TRAI- 
LING am erste Byte von ABC keine Veranderungen vornimmt. 

Es ist auch moglich, nachlaufende Leerzeichen aus einem String zu 
loschen. Dazu bedient man sich des Wortes $-TB. Wenn wir z.B. 
folgende Worter ausfuhren: 

ABC $-TB 

dann wird das erste in ABC gespeicherte Byte so verandert, daB es 
die tatsachliche Zeichenzahl in ABC ohne nachlaufende Leerzeichen 
wiedergibt . 


7.3.5 Numerische Stringinformationen 


Es gibt in FORTH auch Worter, mit denen man sich numerische In- 
formationen uber Strings beschaffen kann. Diese wollen wir jetzt 
besprechen. Mit dem Wort LEN erfahrt man die Lange eines Strings. 
Durch Ausfiihrung von 


ABC LEN 


(7-36) 


wird die Adresse von ABC vom Stack entfernt und durch eine ein- 
fach genaue Integer ersetzt, die der Anzahl der Zeichen in dem 
String entspricht. 

Das FORTH-Wort ASC liefert den ASCII-Code des ersten Zeichens in 
einem String. Das Beispiel 


ABC ASC (7-37) 


sorgt dafiir , daB die Adresse von ABC vom Stack entfernt und an 
ihrer Stelle dort der ASCII-Code des ersten Zeichens im String 
abgelegt wird. Die beiden Worter LEN und ASC haben die Stack- 
Relation 
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a — > n 


(7-38) 


Das FORTH-Wort CHR$ erwartet eine einfach genaue Integer auf dem 
Stack (diese muB einem giiltigen ASCII-Code entsprechen) und er- 
setzt diese durch die entsprechende Zeichendarstellung im tempo- 
raren Arbei tsbereich . Um auf das Ergebnis zugreifen zu konnen, 
legt CHR$ die Adresse dieses Arbeitsbereiches (PAD) als Ergebnis 
auf den Stack. Wir haben folgende Stack-Relation: 


n — > a 

pad 


(7-40) 


Oft ist es erf orderlich , in Stringdarstellung gespeicherte Zahlen 
in ihre numerischen Entsprechungen umzuwandeln . Ein String, der 
aus lauter Ziffern besteht, stellt zwar - fur den Menschen - eine 
Zahl dar, der Computer kann jedoch damit nicht rechnen. Dazu muB 
der String zuvor umgewandelt werden, was das FORTH-Wort VAL be- 
sorgt. Dieses wandelt eine als String gegebene Zahl in die ent- 
sprechende einfach genaue Integer um. Wenn also beispielsweise in 
ABC der String "123" gespeichert ist, dann haben wir nach Ausfuh- 
rung von 

ABC VAL 

auf dem Stack die einfach genaue Integer 123 liegen. Die Stack- 
Relation lautet: 


a — > n 


(7-41 ) 


7 . 4 Obungsauf gaben 


Wenn in den folgenden Aufgaben von Ihnen verlangt wird , FORTH- 
Programme zu schreiben, dann uberpriifen Sie diese am besten an 
Ihrem Computer. Hal ten Sie die einzelnen FORTH-Worter so kurz wie 
moglich; versuchen Sie modular zu programmieren . 
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7-1 Was ist der Unterschied zwischen einem Zeichen und einem 
String? 

7-2 Vergleichen Sie die FORTH-Worter C! und C@ mit ! und 

7-3 Rich ten Sie zwei Arrays ein. Speichern Sie im ersten Inte- 
gers, und duplizieren Sie diese mittels CMOVE in einen zwei- 
ten Array. Dazu muB der zweite Array naturlich mindestens sc 
groB wie der erste sein. 

7-4 Wiederholen Sie Aufgabe 7-3 unter Verwendung von MOVE. 

7-5 Warum kann man in Aufgabe 7-3 sowohl mit CMOVE als auch mit 
CCMOVE arbeiten? 

7-6 Schreiben Sie ein FORTH-Wort, das Zeichen von der Tastatur 
einliest und ihren ASCII-Code auf dem Bildschirm ausgibt. 
Das Programm sollte durch Eingabe eines Prozentzeichens be- 
endet werden. 

7-7 Schreiben Sie ein Programm, mit dem Sie Text eingeben und in 
einen Array speichern konnen. Lassen Sie sich dann Ihre Ein- 
gabe satzweise ausgeben. Nach Ausgabe eines Satzes sollte 
das Programm so lange warten , bis Sie einen neuen eingeben. 

7-8 Schreiben Sie das Programm der Abbildung 7-1 neu , so daB Sie 
Zeichen im gespeicherten Text verandern konnen. 

7-9 Schreiben Sie das Programm der Abbildung 7-1 neu, so daB Sie 
Zeichen aus dem Text loschen konnen. 

7-10 Schreiben Sie das Programm der Abbildung 7-2 neu, so daB 
nicht zu viele Zeichen in den Array TEXT mitauf genommen wer- 
den konnen. 

7-11 Schreiben Sie das Programm in Abbildung 7-1 neu, so daB es 
mit dem FORTH-Wort EXPECT arbeitet. Beenden Sie Ihre Einga- 
ben durch Drucken der Return-Taste. 

7-12 Schreiben Sie mittels WORD ein FORTH -Programm , das einen 
String durchgeht und das erste Wort darin ausgibt. Dann halt 
das Programm an und wartet so lange, bis Sie ein beliebiges 
Zeichen eingeben, woraufhin das nachste Wort ausgegeben 
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wird. Dieser ProzeB soli so lange fortgesetzt werden, bis 
alle Worter im String ausgegeben sind. 

7-13 Wiederholen Sie Aufgabe 7-12, wobei Sie diesmal mit dem 
Trennzeichen M #" arbeiten. 

7-14 Was ist der Unterschied zwischen Stringkonstanten und nume- 
rischen Konstanten? 

7-15 Andern Sie das Programm der Abbildung 7-1 so, daB es mit den 
Wortern aus Abschnitt 7-3 arbeitet. 

7-16 Wiederholen Sie Aufgabe 7-8 mit den Wortern aus Abschnitt 7- 

3. 

7-17 Wiederholen Sie Aufgabe 7-9 mit den Wortern aus Abschnitt 7- 

3. 

7-18 Wiederholen Sie Aufgabe 7-10 mit den Wortern aus Abschnitt 
7-3. 

7-19 Andern Sie das Programm aus der Abbildung 7-5 so, daB der 
Originalarray erhalten bleibt. 

7-20 Wiederholen Sie die Aufgabe 6-16, wobei diesmal der Verkau- 
fername mitauf genommen werden soil. Setzen Sie hier jedoch 
nicht die Worter aus Abschnitt 7-3 ein. 

7-21 Wiederholen Sie Aufgabe 7-20 mit den Wortern aus Abschnitt 
7-3. 

7-22 Wiederholen Sie Aufgabe 7-21 , lassen Sie sich diesmal jedoch 
die Werte nach den Verkauf ernamen alphabetisch sortiert aus- 
geben. 

7-23 Erortern Sie die Arbeitsweise von $+. 

7-24 Warum sollten Sie nicht uber langere Zeit Daten im tempora- 
ren Arbei tsspeicher zwischenspeichern? 

7-25 Xndern Sie das Programm der Abbildung 7-5 so ab, daB nur die 
ersten vier Zeichen eines jeden Namens fur den Vergleich 
herangezogen werden. 
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7-26 Wiederholen Sie das Programm der Abbildung 7-1 so, daB Sie 
die gespeicherten Daten nach einem bestimmten Teilstring 
durchsuchen konnen. 

7-27 Wiederholen Sie Aufgabe 7-26 ohne das FORTH-Wort INSTR. 
Hinweis: schreiben Sie Ihr ei genes Wort, das diese Funktion 

erledigt . 

7-28 Vergleichen Sie die Worter -TRAILING und $-TB. 

7-29 Schreiben Sie ein Programm, das zwei als Strings gespeicher- 
te Zahlen addiert. 
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8 Diskettenoperationen 


In diesem Kapitel gehen wir die Prinzipien der Disketten-Ei n- und 
-Ausgabe durch. Einige Inf ormationen daruber haben wir schon in 
v'.apitel 1 besprochen; hier haben Sie erfahren, wie Sie Ihre Pro- 
gramme auf Diskette speichern und spater laufen lassen konnen. 
Dieses Thema wollen wir im vorliegenden Kapitel noch einmal auf- 
greifen. Dariiber hinaus beschaftigen wir uns mit der wichtigen 
“rage der Datenorganisation auf Disketten. Viele der dabei behan- 
ielten Themen hangen eng miteinander zusammen. Etliche Techniken 
zum Speichern von Programmen konnen auch fur die Datenspeicherung 
eingesetzt werden. Einige Details, die wir hier darstellen, kon- 
nen von System zu System etwas unterschiedlich ausf alien. 


8.1 Prinzipien der Datenspeicherung auf Diskette 


Dieses Kapitel hat zum Ziel , die in Kapitel 1-4 eingefuhrten 
Kenntnisse uber die Diskettenspeicherung zu erweitern und zu ver- 
tiefen. Deshalb wiederholen wir etwas von dem Material, das wir 
:m ersten Kapitel bereits eingefiihrt haben. 

Heine FORTH-Systeme werden mit einem eigenen Betriebssystem aus- 
geliefert. Verglichen mit anderen Betriebssystemen sind diese je- 
doch sehr einfach s trukturiert . Ein Vorteil der ausschlieBlichen 
.Arbeit in FORTH besteht jedoch darin, daB Sie dieses einfache Be- 
triebssystem leicht modif izieren und Ihren personlichen Zwecken 
anpassen konnen. So verwalten die meisten Betriebssysteme Disket- 
teninhaltsverzeichnisse mit einer auBerst komplexen Struktur; im 
Vergleich dazu ist das vom FORTH-Betriebssystem verwaltete In- 
haltsverzeichnis rudimentar. Sie konnen es als Benutzer jedoch 
leicht modifizieren und Ihren eigenen Bediirfnissen anpassen. An- 
dere FORTH-Systeme verwalten die benotigten Inf ormationen zwar im 
Inhaltsverzeichnis , tun dies jedoch nicht in einer Ihnen genehmen 
Form; auch diese Systeme konnen meistens nach den Benutzerwiin- 
schen modif iziert werden. Wieder andere FORTH-Systeme verwenden 
das eigentliche Betriebssystem des Computers, enthalten aber ihre 
eigenen Kommandos fur Disketten-Ein- und -Ausgabe. 

Urn die nachf olgenden Erorterungen besser verstehen zu konnen, 
wollen wir erst einmal darstellen, wie Programme auf Disketten 
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gespeichert werden . Wie Sie bereits aus Kapitel 1-4 wissen, wer- 
den die meisten FORTH-Programrae in einem FORTH-Editor eingetippt 
und anschlieBend auf Diskette gespeichert. Das FORTH-System ar- 
beitet dabei mit sog. Datenblocken , von denen jeder genau 1024 
Byte fassen kann. (Genaugenommen kann diese Zahl von System zu 
System variieren; bei 1 024 handelt es sich jedoch urn einen typi- 
schen Wert.) Stellen Sie Sich jetzt einmal vor , Sie geben ein 
Programm mit Ihrem Editor ein. Die Zeichen, die Sie auf Ihrer 
Tastatur tippen , werden nicht direkt auf Diskette gespeichert, 
sondern in einem speziell daftir reservierten Bereich im Arbeits- 
speicher abgelegt. Diesen Bereich bezeichnet man als Blockpuffer. 
Wie Sie wissen, ist ein Puffer ein Speicherbereich , der fur die 
temporare Speicherung von Daten vorgesehen ist. In FORTH ist der 
Puf f erbereich seinerseits wieder in Blocke unterteilt, die der 
BlockgroBe auf Diskette - in unserem Beispiel 1024 - entsprechen. 
Blocke aus dem Arbei tsspeicherpuf fer konnen auch auf Diskette ge- 
speichert werden. Man spricht dann von Diskettenblocken . Ihr 
FORTH-System reserviert in der Regel eine ganze Anzahl solcher 
Blockpuffer im Arbeitsspeicher . Jeder von der Diskette geladene 
Oder auf Diskette zu schreibende Block wird in einem Puffer ab- 
gelegt. Bei einigen Systemen ist die Anzahl der Puffer festge- 
legt , bei anderen kann sie variieren. Sehen Sie also in Ihrem 
Handbuch nach, um die Usancen Ihres Systems zu erfahren. 

Sie haben also nun ein Programm eingegeben und in einem Blockpuf- 
fer gespeichert. Die meisten Editoren verfiigen liber Kommandos , 
mit denen Sie den Pufferblock markieren konnen, so daB er bei der 
nachsten Aktualisierungsoperation auf Diskette gespeichert wird; 
meistens bedient man sich dazu des FORTH-Wortes UPDATE. Gelegent- 
lich arbei ten Sie mit langen Programmen , die nicht in einem ein- 
zigen Block Platz finden. Es kann sogar sein, daB Ihr Programm 
mehr Blocke belegt, als im Puf ferbereich reserviert sind. Der 
Einfachheit halber wollen wir davon ausgehen, daB dieses hypothe- 
tische Programm in drei Diskettenblocke gespeichert ist, Ihr 
FORTH-System im Arbeitsspeicher jedoch nur zwei Pufferblocke be- 
reitstellt. Zur Bearbeitung von drei Blocke ist es notig, einen 
der Speicherblocke zu iiberschreiben. Wenn Sie einen Pufferblock 
mittels UPDATE markieren und nachfolgend versuchen , diesen zu 
iiberschreiben, dann wird der Block automatisch auf die Diskette 
zuriickgeschrieben, ehe der Inhalt uberschrieben werden kann. Das 
bedeutet, daB das FORTH-System Blocke schiitzt, die zur Aktuali- 
sierung markiert wurden . ( Vergewissern Sie sich anhand Ihres 
FORTH-Handbuches, daB dies in Ihrem System auch wirklich so ist.) 
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Wie wir gesehen haben, konnen Sie Ihr eingegebenes Material mit- 
tels UPDATE markieren und so vor Verlust schutzen. Auch wenn Sie 
den Editor versehentlich verlassen , werden die markierten Blok- 
ke auf Diskette gespeichert. Dariiber hinaus erlauben viele Sy- 
steme dem Benutzer auch, den Editor ohne Sicherung zu verlassen, 
indem etwa die BREAK-Taste gedruckt wird. 

Wir konnen auch selbst dafur sorgen , daB in Blockpuffern enthal- 
tenes Material auf Diskette geschrieben wird. Ehe wir das Wort 
betrachten, mit dem man das bewirkt, wollen wir noch einige De- 
tails des Ediervorgangs untersuchen. Die Blocke auf einer Dis- 
kette sind durchnumeriert . (Die Methode, nach der diese Numerie- 
rung geschieht, wollen wir noch spater besprechen.) Sie mussen 
dem Editor beim Aufruf die Nummer des Blockes mitteilen, die er 
bearbeiten soil. In der Regel ruft man den Editor uber das FORTH- 
Wort EDIT auf. Zur Bearbeitung des Blockes 123 mussen Sie also 
eingeben: 


123 EDIT (RETURN) (8-1) 

EDIT entfernt also eine Integer vom Stack und liest den entspre- 
chenden Block von der Diskette in einen Pufferblock. AnschlieBend 
befinden Sie sich im Editor und konnen diesen Block mit den ent- 
sprechenden Kommandos bearbeiten. EDIT hat die Stack-Relation 


n — > 


( 8 - 2 ) 


Eine spezielle FORTH-Variable mit dem Namen SCR speichert stets 
die Nummer des Puf f erblockes , der gerade bearbeitet wird. Weiter- 
hin merkt sich das System die Nummer des Diskettenblockes , der 
die Daten enthalt, die im in Arbeit befindlichen Pufferblock ge- 
speichert sind. Beach ten Sie, daB zur Speicherung dieses Wertes 
SCR nicht herangezogen werden kann, da Sie ja mit mehreren Blok- 
ken gleichzeitig arbeiten konnen. Die in SCR enthaltene Zahl ist 
stets die Blocknummer des letzten bearbeiteten Blockes. Angenom- 
men, Sie haben einen Oder mehrere Blocke bearbeitet und fur die 
Aktualisierung markiert. Wenn Sie jetzt das FORTH-Kommando SAVE- 
BUFFERS eingeben, dann wird jeder markierte Speicherpuf f er an die 
passende Stelle auf der Diskette gesichert. Viele FORTH-Sys teme 
benutzen auch ans telle von SAVE-BUFFERS das Kommando FLUSH. 
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Gelegentlich arbeiten Sie mit einem im Teststadiuin befindlichen 
Programm und wollen nicht, daB die gerade im Blockpuffer befind- 
liche Version die auf der Diskette gespeicherte Version iiber- 
schreibt. Dabei ist zu beach ten, daB das Zuriickschreiben unbe- 
nutzter Blocke vom FORTH-System manchmal automatisch ausgefiihrt 
wird. Um so etwas zu verhindern, konnen Sie mit dem Wort EMPTY- 
BUFFERS einen Puffer vor dem Zuriickschreiben auf die Diskette be- 
wahren. Die Ausfiihrung von EMPTY -BUFFERS sorgt namlich dafiir, daB 
die Aktualisierungsmarken von alien Speicherpuf f ern entfernt wer- 
den. EMPTY-BUFFERS andert nichts an dem Material, das in den 
Blockpuffern gespeichert ist. Sie konnen dieses also weiterhin 
mit dem Editor bearbeiten. Wenn Sie es wollen, konnen Sie dann 
ohne weiteres im AnschluB daran einen Puffer wieder mittels 
UPDATE markieren und so dafiir sorgen , daB er bei der nachsten 
Aktualisierung beriicksichtigt wird. Denken Sie jedoch daran, daB 
UPDATE stets nur den Block markiert, der als letzter in Arbeit 
befindlich war. 

Beim Edieren ist es gelegentlich erf orderlich , sich das Wort 
anzuschauen, das man gerade bearbeitet. Zwei FORTH-Worter konnen 
dazu eingesetzt werden. Eines davon lautet L. Um es auszufiihren 
geben Sie einfach ein: 


L (RETURN) 


(8-3) 


Der aktuelle Block - also der, dessen Nummer in SCR gespeichert 
ist - wird dann auf dem Bildschirm ausgegeben. Um auch noch zu- 
satzlich eine Druckausgabe zu erreichen, verwenden Sie das Wort 
PCRT. Mit L konnen Sie jedoch nur den aktuellen Block auf listen. 
Wenn Sie einen anderen als den gerade in Arbeit befindlichen 
Block sehen wollen, dann miissen Sie das Kommando LIST geben. Um 
den Block 123 aufzulisten, miissen Sie also eingeben: 


123 LIST (RETURN) 


(8-4) 


Darauf hin wird die Zahl 1 23 vom Stack entfernt und in SCR gespei- 
chert. AnschlieBend wird der betreffende Block ausgegeben. Die 
Stack-Relation fur LIST finden Sie ebenfalls in (8-2). 
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Venn SCR sowieso schon den richtigen Wert enthalt, dann brauchen 
Sie nicht das Wort EDIT einzugeben. Im MMSFORTH reicht es , das 
■Commando E zu tippen. Dieses bewirkt, da8 der Block bearbeitet 
wird, dessen Nummer in SCR gespeichert ist. 

Sun ein paar Worter zur Compilierung von FORTH-Programmen . Dieser 
Vorgang muB stattfinden, ehe Sie ein Programm ausfiihren konnen. 
"Compilieren" bedeutet, daB unter anderem Worterbucheintr age fur 
Worter und Variable und Verweise auf den Maschinencode angelegt 
werden, der die entsprechenden Operationen auslost. Zum Compilie- 
ren eines Blockes geben Sie das FORTH -Kommando LOAD. Daraufhin 
vird der Block geladen, und alle darin enthaltenen Worter werden 
ausgefuhrt. Um das Programm zu compilieren, das in Block 123 ge- 
speichert ist, miissen Sie also eintippen: 

123 LOAD (RETURN) (8-5) 

In diesem Fall wird die Zahl 123 vom Stack entfernt und der so 
angegebene Block geladen. Sind in dem Block Definitionen mittels 
und ; enthalten, so werden die entsprechenden Worter compi- 
liert; direkt ausfiihrbare Anweisungen wie etwa 

VARIABLE ABC 

werden hingegen sofort ausgefuhrt. Die Relation (8-2) gilt eben- 
falls fur LOAD. 

Gelegentlich ist es notig, mehrere Blocke auf einmal zu laden. In 
diesem Fall konnen Sie mit dem MMSFORTH -Kommando LOADS arbeiten. 
Dieses Wort ist kein Teil des FORTH-79-Standards . Um Block 123 
und die nachf olgenden beiden Blocke zu laden, miissen Sie einge- 
ben : 


123 3 LOADS (RETURN) 


( 8 - 6 ) 


Bei LOADS lautet die Stack-Relation f olgendermaBen : 


n 


1 


n 


2 


— > 


(8-7) 
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In einigen FORTH-Systemen ist LOADS anders definiert und funktio- 
niert entsprechend anders. Uberpriifen Sie deshalb vorher die In- 
formationen in Ihrem FORTH-Handbuch . 

Eine andere Methode zum Laden mehrerer Blocke besteht darin, als 
letzte Anweisung in einem Block das FORTH-Kommando aufzunehmen, 
das den nachsten Block ladt. Wenn nun der erste Block geladen 
wird, dann wird diese Anweisung ausgefiihrt und sorgt daf ur , daB 
auch der nachste Block nachgeladen ist. Zum Laden der beiden 
Blocke 123 und 124 nehmen Sie also in Ihren Block 123 als letzte 
Anweisung auf : 

124 LOAD 

Wenn Sie jetzt den Block 123 laden, dann hat dies zur Folge , daB 
auch Block 124 automatisch nachgeladen wird. Diesen ProzeB kann 
man wiederholen und so eine beliebige Anzahl von Blocken mitein- 
ander verketten. Wenn sich ein einzelnes FORTH-Wort allerdings 
uber mehr als einen Block erstreckt, dann ist dieses Verfahren 
nicht anwendbar. Die einfachste Losung fur dieses Problem besteht 
darin, kiirzere Worter zu schreiben, die in einem Block Platz fin- 
den. Strukturieren Sie Ihr Problem neu, und schreiben Sie kurze 
FORTH-Worter , die ihrerseits andere Worter rufen. 

Die meisten FORTH-Sys teme verwalten keine Inhal tsverzeichnisse 
fur Disketten. In manchem System findet sich jedoch ein Wort, mit 
dem man herausfinden kann, welche Information in den einzelnen 
Blocken gespeichert sind; es lautet INDEX. Hier ein Beispiel fur 
seine Anwendung: 


50 20 INDEX (RETURN) 


( 8 - 8 ) 


Damit sorgen wir dafiir, daB jeweils die erste Zeile von 20 Blok- 
ken aufgelistet wird, wobei dieser Vorgang mit Block 50 beginnt. 
Da es guter Programmierstil ist, in jedem Block am Anfang einen 
Kommentar zu schreiben, der die Funktion der darin enthaltenen 
Anweisungen schildert, kann man mit INDEX AufschluB uber die auf 
der Diskette gespeicherten Blocke erhalten. AuSerdem konnen Sie 
so ausf indig machen , welche Diskettenblocke leer sind und fur die 
Speicherung neuer Programme herangezogen werden konnen. Hier lau- 
tet die Stack-Relation folgendermaBen : 
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n, n. 


--> 


( 8 - 9 ) 


-it den Diskettenblocken sind wir jetzt vertraut; es wird also 
Z^-Z, sich die Organisation und Informationen auf Diskette anzu- 
iir.e n und zu erfahren, nach welcher Methode Blocknummern vergeben 
•arden. Wir beschranken uns hier auf Informationen iiber die Dis- 
■veicenspeicherung , die in unserem Zusammenhang relevant sind. Die 
ar.gegebenen Zahlen sind typische Werte fiir kleine Disketten- 
r ; steme. Die dargestellten Prinzipien gel ten jedoch auch fur 
rrdSere Systeme und konnen auf diese ubertragen werden. Daten 
-erden auf Disketten in sog. Spuren gespeichert. Einige Laufwerke 
arceiten mit 35 Spuren, wahrend andere 40 Oder sogar 80 Spuren 
s^iweisen. Fiir unsere Erorterungen wollen wir annehmen, daB die 
laufwerke des Systems iiber 40 Spuren verfiigen. Die Spuren einer 
Iiskette sind als konzentrische Ringe iiber den Datentrager ver- 
:eilt und ihrerseits wieder in kleinere Einheiten, die sog. 
Sektoren, unterteilt. Die Anzahl Sektoren pro Spur wird von der 
-Vif zeichnungstechnik bestimmt, mit der das jeweilige System ar- 
tel tet. Wir gehen davon aus, daB unser hypothetisches Laufwerksy- 
=tem 10 Sektoren pro Spur schreibt, Typischerweise konnen in 
emem Diskettensektor 256 Byte gespeichert werden. Der Sektor ist 
die kleinste logische Einheit auf einer Diskette. Urn einen Block 
m FORTH zu speichern, werden somit 4 Sektoren benotigt. Auf den 
-eisten Diskettensystemen sind einige Diskettensektoren reser- 
lert, da in ihnen ein Urladeprogramm fiir das "Hochf ahren" des 
Systems gespeichert ist. Die Einzelheiten dieses Programms brau- 
then uns hier nicht zu beschaf tigen; wir gehen lediglich davon 
aus, daB unser hypothetisches System zwei Sektoren fiir den Ur- 
_ader reserviert. 

Fassen wir noch einmal zusammen: Wir stellen uns ein Diskettensy- 
stem mit 40 Spuren zu 10 Sektoren vor, so daB auf einer Diskette 
99 Blocke gespeichert werden konnen. Die Diskette verfugt iiber 
msgesamt 400 Sektoren. Zwei Sektoren gehen fur den Urlader ab, 
so daB auf der Diskette insgesamt 398 Sektoren verwendet werden 
(denn 99 Blocke belegen 99x4= 396 Sektoren) . Die verbleibenden 
oeiden Sektoren auf der Diskette bleiben ungenutzt. Jetzt nehmen 
wir weiter an, daB wir mit mehr als einem Laufwerk arbeiten. Die 
meisten FORTH-Systeme vergeben fortlaufende Blocknummern . Es 
konnen sich nun zwei Disketten, eine in Laufwerk 0 (oder A) und 
eine in Laufwerk 1 (oder B) befinden. (Beachten Sie, daB der er- 
ste Sektor in der ersten Spur vom ersten Laufwerk die Nummer 0 
erhalt . ) Der Block mit der Nummer 98 ist der letzte Block, der 
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auf der Diskette in Laufwerk 0 Coder A) gespeichert werden kann. 
Entsprechend wird der Block mit der Nummer 99 der erste Block auf 
Laufwerk 1 Coder B) sein. Die Nummer eines Blockes hangt also 
auch davon ab, auf welchem Laufwerk er sich befindet. Angenommen , 
ein bestimmter Block ist der 61ste auf seiner Diskette. Wenn Sie 
diese Diskette nun in Laufwerk 0 legen, dann erhalt der fragliche 
Block die Nummer 60. Sollte sich hingegen die Diskette im zweiten 
Laufwerk (Laufwerk 1) befinden, dann ist die Blocknummer fur 
diesen Block gleich 159. Da die Blocke bei 0 beginnend durchnume- 
riert werden, tragt der 61ste Block die Blocknummer 60. 

Wir wollen die eben besprochenen Inf ormationen an einem kleinen 
Programm vertiefen, das ein Disketteninhal tsverzeichnis ausgibt. 
Wir wollen annehmen , daB auf jeder Diskette eine Kopie dieses 
Programms vorhanden ist. Es ware z.B. guns tig, das Programm auf 
jeder Diskette im 61sten Block (Nummer 60) abzuspeichern . Ist die 
Diskette im Laufwerk 0, dann konnen wir das Programm laden, indem 
wir uns den Block 60 holen; ist sie in Laufwerk 1 , so miissen wir 
Block 159 ansprechen. Nach Laden des Programms konnen Sie sich 
ein Inhaltsverzeichnis der Programme auf Ihrer Diskette anzeigen 
lassen, indem Sie den Befehl DIRECTORY eingeben. Sie sehen dann 
auf Ihrem Bildschirm die Namen der einzelnen Programme, die sich 
auf der Diskette befinden. Urn eines dieser Programme zu laden, 
geben Sie dann lediglich den Namen des Programms ein und drucken 
die Return-Taste. Das Wort sorgt dann selbst dafiir, daB das von 
Ihnen gewahlte Programm geladen und die Anf angsblocknummer in der 
Variablen SCR abgelegt wird; Sie konnen es somit edieren und 
auf listen . 

Wenden Sie Sich nun der Abbildung 8-1 zu , in der Sie ein Listing 
des fraglichen Programms sehen. In Zeile 1 wird ein Wort DRIVNO 
definiert, das den Benutzer fragt, in welchem Laufwerk sich die 
Diskette befindet. Der Benutzer antwortet mit’einer Zahl , die von 
dem Wort DRIVNO auf den Stack gelegt wird. In unserem Beispiel- 
programm nehmen wir an, daB die Diskette drei Programme enthalt, 
wobei das Programm mit dem Namen FACTORIAL im Block Nummer 20 
gespeichert ist, FACTREAL im Block 21 abgelegt und ALPHA im Block 
46 und 47 zu finden ist. In Zeile 2 wird nun zuerst das Wort 
FACTORIAL definiert. Es ruft als erstes DRVNO und besorgt sich so 
auf dem Stack die Nummer des richtigen Laufwerks. Aus dieser Num- 
mer erzeugen wir durch Multiplikation und Addition die Nummer des 
gewunschten Blockes, welche wir duplizieren. Die erste Kopie der 
Blocknummer speichern wir in der Variablen SCR, wodurch die 
Moglichkeit zum Bearbeiten des Programms gesichert ist; mit der 
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0 

( Ein einfaches Disketten 

-Inhaltsverzeichnis 

) 


1 

: DRVNO 

" BITTE 

LAUFWERKSNUMMER 

EINGEBEN 

M 

#IN 

2 

: FACTORIAL 

DRVNO 

99 

* 20 + 

DUP SCR 

i 

LOAD ; 

3 

: FACTREAL 

DRVNO 

99 

* 21 + 

DUP SCR 

t 

LOAD ; 

4 

: ALPHA 

DRVNO 

99 * 

46 + DUP 

SCR i 

DUP 


5 LOAD 1 4- LOAD ; 

6 

7 

8 
9 

10 : DIRECTORY CR . " FACTORIAL FACTREAL ALPHA 

1 1 


ABBILDUNG 8-1: Ein einfaches Inhal tsverzeichnis 


zweiten Kopie laden wir den Block, der die eigentliche Programm- 
definition enthalt. Wir haben so das gewiinschte Ergebnis erzielt. 
Das Wort in Zeile 3 der Abbildung 8-1 fuhrt im wesentlichen die- 
selben Verarbeitungsschritte aus. Zeile 4 zeigt die Definition 
des FORTH-Wortes ALPHA. Nun haben wir ja vereinbart, daB das Wort 
ALPHA in zwei Blocke gespeichert ist; deshalb muB die Definition 
der Zeile 4 auch dafur sorgen , daB zwei Blocke geladen werden. 
ALPHA unterscheidet sich von den beiden anderen Wortern haupt- 
sachlich dadurch, daB vor dem ersten Ladevorgang die Blocknummer 
dupliziert wird; nach AbschluB des Ladens steht sie also noch auf 
dem Stack, kann urn 1 erhoht und fur den nachsten Ladevorgang 
herangezogen werden. ALPHA sorgt so dafur, daB die beiden richti- 
gen Blocke geladen werden und zur Editierung berei tstehen . 

In Zeile 10 sehen Sie die Definition des Wortes , mit dem das 
Inhaltsverzeichnis aufgelistet werden kann; es heiSt DIRECTORY. 
Dieses Wort tut nichts anderes, als die Namen aller Programme 
auszugeben. Unser Inhaltsverzeichnisprogramm funktioniert also 
wie gewiinscht, wenngleich es noch sehr primitiv ist. Jedesmal, 
wenn Sie ein neues Programm auf Ihrer Diskette abspeichern wol- 
len , dann mussen Sie das Programm fur das Inhaltsverzeichnis auch 
andern. Wenn wir ein "ausgewachsenes" Betriebssystem schreiben 
wvirden , dann miiBten all diese Aufgaben automatisch vom System 
erledigt werden. 

Zwei weitere FORTH -Kommandos haben mit der Verarbeitung von Blok- 
ken und Blockpuffern zu tun. Das erste lautet BLOCK. Hier ein 
typisches Anwendungsbeispiel fur dieses Wort: 
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132 BLOCK 


( 8 - 10 ) 


In diesem Fall wird die Zahl 123 vom Stack entfernt und dann der 
Block mit der Nummer 123 von den entsprechenden vier Disketten- 
sektoren in einen Blockpuffer im Arbeitsspeicher geladen. Als 
Resultat legt BLOCK weiterhin noch die Anf angsadresse des Puffers 
auf den Stack. Diese Adresse benotigt das FORTH-System , um den 
Puffer verwalten zu konnen. Auch Sie konnen sie dazu benutzen, um 
Daten zu speichern. Wir haben fur BLOCK folgende Stack-Relation: 


n — > a 


( 8-11 ) 


Ein wei teres, im Zusammenhang mit Ein-/Ausgaben benotigtes Wort, 
lautet BUFFER. Hier ein Anwendungsbeispiel : 


123 BUFFER 


( 8 - 12 ) 


Dieses Beispiel sorgt dafur, daS die Zahl 123 vom Stack entfernt 
und daraufhin 1024 Byte aus dem Arbeitsspeicher als Arbei tspuf f er 
fur Block 123 zugewiesen werden. Die Anf angsadresse dieses Block- 
puffers wird auf den Stack gelegt. Das Wort BUFFER arbeitet also 
ahnlich wie BLOCK. Der Unterschied besteht darin, daB ein Aufruf 
von BUFFER noch keine Information von der Diskette liest. BUFFER 
dient somit nur dazu, einen Speicherpuf f er fur nachfolgende Dis- 
kettenoperationen zu reservieren. Die Stack-Relation fur BUFFER 
sehen Sie ebenfalls in (8-11). 


8.2 Datenorganisation auf Disketten 


Wir werden jetzt darlegen , wie Daten auf Diskette gespeichert und 
dort wiedergefunden werden. Wahrend der Ausfiihrung eines Pro- 
gramms kommen oft Diskettenzugrif f e vor. Einige der hierfiir in 
unserem Buch vorgestellten Worter finden sich nicht in FORTH-79. 
Sie sind jedoch Bestandteil von MMSFORTH; weiterhin verfiigen 
viele andere FORTH-Systeme uber ahnliche Befehle. 
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DOTSECS und DRDSECS - Mit diesen beiden Wortern kann man in FORTH 
Inf ormationen auf die Diskette schreiben bzw. davon lesen. Sie 
smd kein Bestandteil von FORTH-79 , lassen sich jedoch sehr be- 
zuem handhaben. 

Mit dem Wort DWTSECS kann man Daten auf Diskette schreiben. Hier 
ein typisches Anwendungsbeispiel : 


NUMB 1 23 8 2 DWTSECS 


(8-13) 


Bei diesem Beispiel nehmen wir an, daB NUMB eine Array-Variable 
ist. Das Beispiel (8-13) sorgt dafvir, daB die Information im 
Arbeitsspeicher , die bei der Adresse von NUMB beginnt, auf die 
Diskette geschrieben wird. Die Daten werden auf der Diskette im 
Laufwerk 1 gespeichert. Insgesamt zwei Sektoren werden geschrie- 
ben, wobei mit Sektor 8 der Spur 23 begonnen wird. (Denken sie 
daran, daB die Numerierung von Laufwerken, Spuren und Sektoren 
jeweils mit 0 beginnt.) Da ein Sektor 256 Byte aufnehmen kann, 
bedeutet dies, daB 512 Byte aus dem Arbeitsspeicher gelesen und 
auf Diskette gespeichert werden. Wenn Sie sich des Wortes DWTSECS 
bedienen , dann spielt es keine Rolle, welche Art von Inf ormatio- 
nen im Speicher befindlich ist; das Wort schreibt einfach eine 
zusammenhangende Folge von Bytes auf Diskette, ohne sich urn den 
Datentyp der so gespeicherten Information zu kummern. So braucht 
NUMB beispielsweise nicht unbedingt ein Array zu sein; ebensogut 
konnte es sich dabei urn eine Variable handeln , in der eine ein- 
fach genaue Integer gespeichert ist. Trotzdem werden bei Ausfiih- 
rung von (8-13) 512 auf einanderf olgende Bytes, beginnend bei der 
Adresse NUMB, auf Diskette kopiert. Das Wort hat folgende Stack- 
Relation: 


a n n 0 n 0 n. — > n^, 

1 2 3 4 flag 


(8-14) 


Hierbei steht n^ fiir die Laufwerksnummer , fur die Spur, n^ fur 
die Sektornummer auf der Spur und n^ fiir die Anzahl der Sektoren, 
die ubertragen werden sollen. Das Wort hinterlaBt ein Flag auf 
dem Stack. Damit wird dem Benutzer Oder anderen Wortern signali- 
siert, ob die Kopieroperation erfolgreich war. Bei der Ein-/ 
Ausgabe von Daten auf Disketten konnen namlich Schreib- oder 
Lesefehler auftreten. Das FORTH-System iiberpruft zuerst, ob die 
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Datenubertragung fehlerfrei vonstatten gegangen ist und legt in 
diesem Fall eine 0 auf den Stack. Wie bereits bei anderen Bei- 
spielen steht diese fur den Wahrheitswert "falsch" . Sollten bei 
der Datenubertragung Fehler aufgetreten sein, so legt DWTSECS 
hingegen den Wahrheitswert "wahr" als Flag auf den Stack. Sie 
konnen in einem Programm dieses Flag dazu benutzen , die Ein- 
/Ausgabeoperationen abzubrechen , zu wiederholen Oder irgendwelche 
anderen Aktionen einzuleiten, die Ihnen sinnvoll erscheinen. 

Den umgekehrten Vorgang , namlich das Lesen von Daten von Diskette 
in den Arbeitsspeicher , lost man mit DRDSECS aus . In seiner Ar- 
beitsweise ahnelt es sehr DWTSECS. So bewirkt z.B. 


NUMB1 1 23 8 2 DRDSECS 


(8-15) 


daft die Information, die sich im Laufwerk 1 auf Spur 23 in den 
Sektoren 8 bis 9 befindet, in den Arbeitsspeicher iibertragen und 
dabei mit der Adresse NUMB begonnen wird. Fiihren wir nacheinander 
zuerst (8-13) und dann (8-15) aus, dann werden 512 Datenbyte aus 
dem Arbeitsspeicher auf die Diskette iibertragen und anschlieBend 
sofort wieder von der Diskette in den Arbeitsspeicher kopiert. 

Die beiden Worter DWTSECS und DRDSECS iibertragen stets ganzzah- 
lige Vielfache von 256 Byte. Nun liegt nicht immer die Situation 
vor, daB wir genau 256 Byte oder ein Vielf aches davon speichern 
wollen. In diesem Fall bleibt uns jedoch nichts anderes iibrig, 
als uberschussige Bytes mit abzuspeichern . In der Abbildung 8-2 
werden die bisher besprochenen Worter noch einmal vorgefuhrt. 
Dieses einfache Programm kann numerische Daten auf Diskette 
schreiben und anschlieBend wieder davon lesen. Wir vereinbaren 
fur diesen Zweck zwei Arrays mit dem Namen NUMB und NUMB1 . Das 
selbstdef inierte Wort INPUT beginnt in Zeile 2. Rufen wir es, so 
werden nacheinander die Zahlen 3, 6, 9, 12, ... , 597 im Array 
NUMB gespeichert. Wie Sie leicht iiberpriifen konnen, speichert der 
Array somit mehr als 256, aber weniger als 512 Byte. Das Wort fur 
die Diskettenausgabe heiBt DISKWRITE und beginnt in Zeile 4; es 
schreibt 512 Byte auf die Sektoren 8 und 9 von Spur 23 der Dis- 
kette im Laufwerk 1 . Mit der Bytesiibertragung wird dabei an der 
Adresse begonnen, die durch NUMB angegeben ist. Das Auftreten 
eines Schreibfehlers wird durch die Kombination aus IF und THEN 
in Zeile 5 abgefangen. In diesem Fall geben wir die Meldung ''DISK 
ERROR" auf dem Bildschirm aus und brechen das Programm ab . Unser 
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0 ( Beispiel zur Disketten-Ein-/-Ausgabe ) 

1 VARIABLE NUMB 512 ALLOT VARIABLE NUMB1 512 ALLOT 


2 

: INPUT 

200 

0 

DO I 3 * 

NUMB 

I 2 * + ! LOOP ; 

4 : 

: DISKWRITE 

NUMB 

1 

23 8 2 DWTSECS 


5 

c. 


IF 

• 

" DISK ERROR” 

QUIT 

THEN ; 

O 

7 ; 

: DISKREAD 

NUMB1 


1 23 8 2 

DRDSECS 


8 

9 

10 : 


IF 

• 

" DISK ERROR” 

QUIT 

THEN ; 

: OUTPUT 

200 

0 

DO NUMB1 2 

I * 

+ @ . . M " LOOP; 


1 1 
12 

ABBILDUNG 8-2: Ein- und Ausgabe von Daten auf Diskette 

Wort INPUT hat zwar nur 400 Byte des Arrays NUMB beschrieben? 
dennoch werden, beginnend bei NUMB, insgesamt 512 Byte auf Dis- 
kette iibertragen. Die Anzahl der ubertragenen Daten ist also un- 
abhangig von der GroBe des Arrays, mit dem wir gearbeitet haben . 

In Zeile 7 beginnt die Definition von DISKREAD, welches 512 Byte 
von der Diskette in Laufwerk 1 liest und dabei die Sektoren 8 und 
9 der Spur 23 heranzieht. Die ubertragene Information wird im Ar- 
beitsspeicher des Computers, beginnend bei der Adresse NUMB1 , ab- 
gelegt. Wieder fangen wir einen eventuellen Ausgabef ehler ab , wo- 
bei wir das Programm nach einer Fehlermeldung beenden. Jetzt 
fehlt noch ein Wort, mit dem wir die eingelesenen Daten anzeigen 
konnen? dies bewirkt die Definition von OUTPUT, die in Zeile 10 
zu finden ist. Sie konnen somit uberpriif en , ob die beiden Worter 
DISKWRITE und DISKREAD richtig f unktionieren . 

Bei der Ausgabe der Daten auf Disketten haben wir einige Bytes 
mit iibertragen, deren Inhalt uns gar nicht bqkannt ist. Dies 
kommt daher, daB bei Disketten-Ein- und -Ausgabe immer nur 256 
Byte Oder ein ganzzahliges Vielfaches davon iibertragen werden 
kann. In der Regel verursachen solche iiberschiissigen Bytes keine 
Probleme bei der Programmierung . 
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8.3 Eingabe von Textmaterial 


Mit den bisher besprochenen Moglichkeiten kann ebensogut Textma- 
terial gespeichert werden; genaugenommen sind diese Verfahren auf 
keinen bestimmten Datentyp beschrankt. Wie wir jedoch erwahnten, 
sind DWTSECS und DRDSECS nicht Bestandteil von FORTH-79. Wir 
stellen deshalb an dieser Stelle noch einige FORTH-79-Bef ehle 
vor, mit denen Textmaterial aus einem Diskettenblock gelesen 
werden kann. Einige der Kommandos, die wir bereits aus Kapitel 7 
kennen, konnen hier ebenfalls verwendet werden. So kennen wir 
z.B. aus Abbildung 7-4 bereits die Worter BLK, >IN und WORD. 
Befindet sich vor Ausfiihrung von BLK eine andere Zahl als 0 auf 
dem Stack, dann kommen die Daten nicht von der Tastatur, sondern 
von einem Diskettenblock. Die Nummer des Diskettenblockes ent- 
spricht dabei der Zahl, die BLK auf dem Stack vorfindet. 

Es ist natiirlich stets moglich, Textmaterial in einen Disketten- 
block uber den Editor einzugeben. Dies funktioniert genauso, wie 
wir Programme eingeben. Mit diesen Daten konnen wir dann die Ver- 
fahren anwenden, die wir in den letzten Abschnitten kennengelernt 
haben. Weiterhin stehen uns noch einige Worter in FORTH-79 zur 
Verfugung. 

TYPE - Mit diesem FORTH-Wort kann man eine bestimmte Anzahl Zei- 
chen ausgeben. Wenn wir eingeben: 

34500 60 TYPE 

dann werden damit 60 Zeichen ausgegeben. Die ausgegebenen Zeichen 
befinden sich an den Adressen 34500 bis 34599 einschliefilich . 
Beachten Sie , da£ TYPE nicht unmittelbar mit Diskettenausgabe zu 
tun hat; vielmehr sollten wir es dann einsetzen , wenn wir Textma- 
terial auf den Bildschirm bekommen wollen, das in einem Blockpuf- 
fer gespeichert ist. Die Stack-Relation lautet: 


a n — > 


(8-16) 


COUNT - Ehe wir zeigen, wie man mit TYPE Textmaterial aus einem 
Blockpuffer ausgeben kann, wollen wir uns einem anderen FORTH- 
Wort, namlich COUNT, zuwenden. Angenommen , in der Variablen SENT 
ist ein String gespeichert. Ublicherweise findet man in den er- 
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sten beiden Bytes dieser Variablen eine Integer, die die Lange 
des Strings angibt. Wir gehen davon aus, daB der String hochstens 
64 Byte lang ist und zur Speicherung seiner Lange eine vorzei- 
chenlose ein Bytes lange Zahl benotigt wird. Wenn wir nun SENT 
rufen, dann ist die auf den Stack gelegte Adresse nicht ausrei- 
chend, um von TYPE verarbeitet zu werden , da ja das erste Bytes 
eine Integer enthalt. Diesem Umstand tragen wir Rechnung , indem 
wir die Zahl auf dem Stack einfach um eins erhdhen und anschlie- 
Bend noch eine Zahl auf den Stack pushen , die der Anzahl auszuge- 
bender Zeichen entspricht. Wir erhalten also das gewiinschte Er- 
gebnis mit folgenden Wortern: 


SENT 1 + SENT C@ TYPE 


(8-17) 


Dies sorgt dafur, daB sich vor dem Aufruf von TYPE sowohl die 
Anf angsadresse des Strings als auch seine Lange auf dem Stack 
befinden. Mittels C@ legen wir die Zahl als einfach genaue Inte- 
ger auf den Stack. Die einzelnen Verarbeitungsschri tte von (8-17) 
kann man jedoch auch mit einem einzigen FORTH-Wort bewirken. Es 
lautet COUNT. Anstelle von (8-17) schreiben wir also einfach: 


SENT COUNT TYPE (8-18) 


Eine eigene Definition von COUNT wurde etwa folgendermaBen lau- 
ten: 


: COUNT DUP 1+ SWAP C@ ; (8-19) 

Wenden wir uns nun dem einfachen Programm in der Abbildung 8-3 
zu, welches den Einsatz von TYPE fur die Ausgabe von Textmaterial 
aus einem Speicherblock illustriert. 

Das Beispiel bringt die Meldung DIESES PROGRAMM DRUCKT "DIESES 
PROGRAMM" auf den Bildschirm, an welche sich die Zeichenfolge 
DIESES PROGRAMM anschlieBt. In Zeile 1 sehen wir einen Teil des 
auszugebenden Texts in Klammern. Die Klarrmern sorgen dafur, daB 
beim Laden des Blockes die darin stehende Information weder corn- 
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0 (Textausgabe mittels TYPE) 

1 (DIESES PROGRAMM DRUCKT "DIESES PROGRAMM" ) 

2 : TEST CR CR 155 BLOCK 66 + 41 TYPE CR CR 

3 DIESES PROGRAMM" CR CR ; 

4 

5 

6 


ABBILDUNG 8-3: Ein einf aches Programmbei spiel zu TYPE 


piliert noch ausgefuhrt wird. Wenn sich der Text auf einem sepa- 
raten Block befindet, der nicht compiliert wird, dann waren die 
Klammern unnotig. Wir gehen davon aus, dab sich das Programm in 
Block 155 befindet. Wenn nun in Zeile 2 BLOCK gerufen wird, dann 
wird Block 155 in einen Speicherpuf fer geladen und die Anfangsad- 
resse des Puffers auf den Stack gelegt. Der Text, den wir ausge- 
ben wollen, befindet sich in der ersten Zeile des Blockes. Jede 
Zeile eines Puffers enthalt genau 64 Zeichen einschlieBlich Leer- 
zeichen. Das Wort DIESES beginnt in der dritten Zeichenposi tion 
der zweiten Zeile. Somit ist der Buchstabe D das 67ste Zeichen im 
Puffer. Dies ist der Grund , weswegen wir die Anf angsadresse des 
Puffers, die wir uber BLOCK erhalten, urn 66 erhohen. Der auszuge- 
bende Text ist insgesamt 41 Zeichen lang. Deshalb legen wir auch 
die Zahl 41 auf den Stack. Wird nun das Wort TYPE gerufen, dann 
liest es den gewiinschten Text aus dem Puffer und gibt ihn aus. 
Den Rest der Meldung geben wir uber das bereits bekannte FORTH- 
Kommando . " aus. Mit den soeben eingefuhrten Methoden kann jeder 
auf Diskette gespeicherte Text ausgegeben werden. 


8 . 4 Obungsauf gaben 


Uberprufen Sie alle FORTH-Worter Oder Programme, die Sie in den 
folgenden Auf gaben schreiben, indem Sie sie auf Ihrem Computer 
laufen lassen. Hal ten Sie die einzelnen Worter moglichst kurz. 
Programmieren Sie modular, indem Sie Teilaufgaben an LJnterworter 
delegieren . 

8-1 Erortern Sie die Prinzipien der Diskettenspeicherung . 

8-2 Was ist ein Block? 
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8-3 Worin besteht der Unterschied zwischen einem Blockpuffer und 
einem Diskettenblock? 

8-4 Schreiben Sie ein FORTH-Wort, das automatisch den gerade in 
Arbeit befindlichen Block ladt, wenn Sie den Befehl LD ein- 
geben . 

8-5 Probieren Sie die Worter EMPTY -BUFFERS, SAVE -BUFFERS , FLUSH 
und UPDATE aus , urn hinter ihre Funktionsweise zu kommen. 

8-6 Worin besteht der Unterschied zwischen EDIT und E? 

8-7 Was ist der Unterschied zwischen den Wortern LIST und L? 

8-8 Finden Sie heraus , wie LOADS in Ihrem System funktioniert . 

8-9 Beschaffen Sie sich iiber das FORTH-Wort INDEX ein Listing 
der Programme, die auf Ihrer Diskette gespeichert sind. Dies 
setzt natiirlich voraus , daB die erste Zeile eines Blockes 
die entsprechende Information enthalt. 

8-10 Xndern Sie das Programm der Abbildung 8-1 so ab, daB die 
Programme erst geladen werden , wenn der Benutzer das richti- 
ge Passwort eingibt. 

8-11 Schreiben Sie ein FORTH-Wort, das ahnlich wie in Programm 
8-1 Inf ormationen iiber das Inhaltsverzeichnis einer Diskette 
liefert, wenn ihm fur ein Programm folgende Inf ormationen 
zur Verfiigung stehen: sein Name, der Anfangsblock und die 

Anzahl der zu ladenden Blocke. 

8-12 Xndern Sie das Programm von Aufgabe 6-16 so, daB alle Ausga- 
ben auf Diskette gehen. 

8-13 Xndern Sie das Programm von Aufgabe 8-12 so, daB die Einga- 
bedaten in einem Array gespeichert werden . 

8-14 Schreiben Sie ein Programm, das die Fakultat der ersten fiinf 
Zahlen berechnet und in einem Array speichert. 

8-15 Wiederholen Sie Aufgabe 8-14 mit doppelt genauen Integers. 
Berechnen Sie die Fakultat der ersten neun Zahlen. 

8-16 Wiederholen Sie Aufgabe 8-15 mit Gleitpunktzahlen . 
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8-17 Wiederholen Sie Aufgabe 8-15 mit doppelt genauen Gleitpunkt- 
zahlen. 

8-18 Geben Sie mittels COUNT und TYPE einen String aus, der sich 
im Arbeitsspeicher befindet. 

8-19 Wiederholen Sie Aufgabe 8-14, und drucken Sie diesmal mit- 
tels TYPE die passende Uberschrif t . 

8-20 Speichern Sie Textmaterial auf einem Diskettenblock , und 
lassen Sie es dann satzweise ausgeben. 
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9 Einige weitere FORTH-Operationen 


Dieses Kapitel bespricht einige zusatzliche FORTH-Worter. Diese 
betreffen die Compilation und die Arbeitsweise des FORTH-Systems 
selbst. Kenntnisse dieser Worter kommen Ihren Programmiertechni- 
ken und einem vertieften Verstandnis von FORTH zugute. 


9 . 1 Compilersteuerung 


In diesem Abschnitt erortern wir einige FORTH-Worter, die die 
Arbeitsweise des Compilers beeinf lussen . Bei alien bisherigen 
FORTH-Wortern geschah folgendes: Wahrend der Compilierung wird 
das Wort im Worterbuch abgelegt und kann anschlieBend aufgerufen 
werden. Wenn ein Wort andere Worter ruft, dann lauft im wesentli- 
chen derselbe Vorgang ab. Nach der Compilierung enthalt der Wor- 
terbucheintrag des aufrufenden Wortes die Adresse des Wortes, das 
gerufen wird* Dadurch konnen "Unterworter" als Teil des Abar- 
beitungsprozesses eines ubergeordneten Wortes aufgerufen werden. 
Betrachten Sie dazu das Beispiel der Abbildung 7-5. Wir definie- 
ren darin die Worter ALPHAj ALPHAIN und ALPHAOUT. Beim Laden des 
Blockes wird jedes dieser einzelnen Worter compiliert und ins 
Worterbuch eingetragen. Rufen wir nun das Wort ALPHA, so werden 
sowohl ALPHAIN als auch ALPHAOUT gerufen und ausgefuhrt. In FORTH 
gibt es jedoch einige Worter, mit denen dieses allgemeine Schema 
abgeandert werden kann. 

IMMEDIATE - Mit diesem FORTH-Wort kann man bewirken, daB ein an- 
deres Wort wahrend der Compilierung ausgefuhrt wird. Wie das 
geht, konnen Sie der Abbildung 9-1 entnehmen. Nehmen wir fur den 
Augenblick einmal an, daB nur die Zeilen 1 und 2 in der Defi- 
nition gegeben sind. Wenn wir den Block der Abbildung 9-1 laden, 
dann erscheint die Meldung "DRUCKE DAS" auf dem Bildschirm. 

Diese Meldung erscheint, wahrend der Block compiliert wird. Al- 
lerdings wird sie nicht durch die Compilation der ersten Zeile 
hervorgerufen. Der Compiler merkt sich lediglich beim Laden, daB 
fur das Wort TEST der Status ‘'IMMEDIATE" (deutsch "unmittelbar " ) 
vereinbart wurde . Als nachstes ubersetzt er TESTl und trifft da- 
rin auf das Wort TEST; er weiB, daB es sich dabei urn ein Wort mit 
dem Status "IMMEDIATE" handelt, weswegen nicht einfach die Adres- 
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0 ( Beispiel fuer Compilerworte ) 


1 

: TEST 

II 

DRUCKE 

DAS " ; IMMEDIATE 

2 

: TEST1 

n 

EINS " 

TEST ; 

3 

: TEST2 

II 

ZWEI " 

/ 

4 

: TEST3 

n 

DREI " 

[compile] test ; 

5 

: TEST4 

• 

" VIER 

" TEST ; 

6 

: TEST5 

ii 

FUENF 

" COMPILE TEST2 ; IMMEDIATE 

7 

: TEST6 

ii 

SECHS 

" TEST5 ; 


8 

9 


ABBILDUNG 9-1 : Beispiele zur Compilersteuerung 


se von TEST in die Definition von TEST1 aufgenominen wird. Viel- 
mehr wird das Wort TEST unmittelbar ausgefiihrt. Wenn wir jedoch 
nach vollstandiger Compilation das Wort TEST1 rufen, dann gelangt 
TEST nicht zur Ausfuhrung. Ein Aufruf von TEST1 bringt nicht die 
Meldung "DRUCKE DAS" auf den Bildschirm. Anders bei Eingeben von 
TEST (RETURN); in diesem Fall sehen wir die fragliche Meldung. 
Das bedeutet: 1st ein Wort mit dem Status "immediate" Teil der 
Definition eines anderen Wortes, dann wird dieses nicht ausge- 
fiihrt, wenn das iibergeordnete Wort gerufen wird. Wir verleihen 
einem Wort diesen Status, indem wir IMMEDIATE unmittelbar an den 
Strichpunkt der Definition anschlieBen. 

[COMPILE] - Gelegentlich wollen wir ein Wort mit dem Status 
"immediate" in einem anderen FORTH-Wort verwenden , wobei es sich 
aber so verhalten soil, als ware es ein gewohnliches FORTH-Wort. 
Dies erreicht man mit dem Kommando [COMPILE]. Abbildung 9-1 gibt 
auch dafiir ein Anwendungsbeispiel . Wir sehen, daB innerhalb der 
Definition von TEST3 das Kommando [COMPILE] auftaucht. Es steht 
in diesem Fall unmittelbar vor dem FORTH-Wort, auf das es sich 
beziehen soil. Wenn nun das Wort TEST3 der Abbildung 9-1 compi- 
liert wird, dann verhalt sich der Compiler so, als hatte TEST 
nicht den Status "immediate". Beim Laden des Blockes der Abbil- 
dung 9-1 verursacht also die Compilierung von TEST3 nicht, daB 
die Meldung "DRUCKE DAS" erscheint. Das bedeutet also, daB ein 
Wort mit dem Status "immediate" nicht als ein solches behandelt 
wird, wenn ihm das Kommando [COMPILE] vorausgeht. 

COMPILE - Wie wir jetzt wissen, wird ein Wort mit dem Status 
"immediate" ignoriert, wenn es in einem anderen Wort eingeschlos- 
sen ist und dieses compiliert wird. Das " immediate" -Wort wird in 
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den Worterbucheintrag des umgebenden "aufieren" Wortes nicht mit 
aufgenommen. Sollte man dies jedoch wiinschen, dann gibt es dafur 
einen speziellen Befehl, der dafur sorgt, daB "immediate "-Worter 
auch in den Worterbucheintrag anderer Worter zur Compilezeit mit 
aufgenommen werden. Betrachten Sie dazu die Zeilen 3, 6 und 7 der 
Abbildung 9-1 - Innerhalb der Definition von TEST6 kommt das Wort 
TEST5 vor, welches den Status "immediate" hat. Normalerweise 
wiirde bei einem Aufruf von TEST6 das darin enthaltene TESTS 
keinerlei Auswirkungen auf den Programmablauf haben. In TESTS ist 
wiederum das Wort TEST2 enthalten, bei dem es sich urn ein norma- 
les Wort handelt. Unmittelbar vor dem Vorkommnis von TEST2 inner- 
halb von TESTS finden wir nun das neue FORTH -Wort COMPILE. Wird 
nun TESTS innerhalb eines anderen Wortes compiliert, dann behan- 
delt der Compiler TEST2 so, als ware es Teil eines gewohnlichen 
Wortes und nicht eines mit dem Status "immediate". Die verblei- 
benden, in der Definition von TESTS noch enthaltenen Worter 
werden jedoch so behandelt, wie es bei einem "immediate"-Wort 
ublich ist. Es wird also beispielsweise bei der Compilierung von 
TEST6 die Meldung "FUENF" ausgegeben. Wird anschlieBend das Wort 
TEST6 gerufen, dann sieht man hingegen die Meldung "SECHS ZWEI" . 
Ware nun innerhalb von TESTS das Wort COMPILE nicht enthalten, 
dann hatte TEST2 keinerlei Auswirkung auf die Arbeitsweise von 
TEST6. Wird TESTS selbst ausgefiihrt, dann wird TEST2 ubergangen. 
Das bedeutet, daB das hinter COMPILE stehende Wort nicht ausge- 
fiihrt wird, wenn das umschlieBende Wort gerufen wird. Rufen wir 
ein Wort, in dessen Definition der Befehl COMPILE enthalten ist, 
dann wird die Adresse des darauf f olgenden Wortes mit in das 
Worterbuch ubernommen , so daB es ausgefiihrt werden kann. 

Sehen wir uns noch einmal im einzelnen an , was beim Laden des 
Blockes der Abbildung 1-1 passiert. Die Compilierung von TEST1 
bewirkt , daB die Meldung "DRUCKE DAS" ausgegeben wird. Eben diese 
Meldung wird auch ausgegeben, wenn der Compiler TEST4 iibersetzt. 
SchlieBlich sehen wir noch die Meldung "FUENF" , wenn der Compiler 
auf TEST6 stoBt. 

Sehen wir uns nun an, was bei Ausfiihrung der einzelnen Worter in 
Abbildung 9-1 geschieht. Rufen wir TEST, dann erhalten wir die 
Meldung "DRUCKE DAS". Bei Ausfiihrung von TEST1 sehen wir auf dem 
Bildschirm die Meldung "EINS". Da TEST ein " immediate" -Wort ist, 
hat es hier keinerlei Auswirkungen. TEST2 ist wieder ein ganz 
normales Wort, es bringt die Zeichenfolge "ZWEI" auf den Bild- 
schirm. Rufen wir TEST3 , so sehen wir "DREI DRUCKE DAS". Das Kom- 
mando [COMPILE] sorgt dafur, daB TEST mit in dieses Wort corn- 
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piliert wurde. Das Wort in Zeile 5, TEST4, bringt nur die Meldung 
"VIER" , da hier TEST unverandert seinen Status als "iimnediate" 
beibehalt. Ebenfalls sehen wir bei Ausfuhrung von TESTS lediglich 
die Meldung " FUENF " . Hier sorgt COMPILE dafiir, daB von einer 
Ausfuhrung von TEST2 abgesehen wird. Andererseits wird TEST2 in- 
nerhalb von TEST5 aktiv, wenn TEST5 von einem anderen Wort geru- 
fen wird. Diese Situation haben wir in TEST6 , welches deswegen 
auch die Zeichenfolge "SECHS ZWEI" ausgibt. 

LITERAL, [ und ] - Oft ist es nutzlich, in einem Programm den 
Anfangswert einer Variablen langere Zeit zu benutzen. Nun kann 
sich jedoch der Variablenwert wahrend der Ausfuhrung andern. Des- 
halb genugt es nicht, einfach den Variablenwert bei der Aus- 
fuhrung des Programms zu holen, weil sich dabei ja ein anderer 
als der Anfangswert ergeben kann. Eine Losung ware es, statt des- 
sen eine Konstante zu definieren, die den Anfangswert der Varia- 
blen darstellt. Sollte diese Notwendigkei t aber bei mehreren 
Variablen auftreten, so wurde dadurch zuviel Speicherplatz ver- 
schwendet werden. Mit den FORTH-Wortern LITERAL, [ und ] kann man 
dieses Problem losen. Eine Beispielanwendung dieser Worter sehen 
Sie in Abbildung 9-2. Sehen wir uns einmal an, was hier ge- 
schieht. In Zeile 1 definieren wir die Variable VAR. 


0 ( Beispielprogramm zu LITERAL ) 

1 VARIABLE VAR 5 VAR ! 

2 : SUMME [ VAR @ ] LITERAL + ? 

3 : ERGEBNIS 7 * DUP VAR ! SUMM . ; 

4 

5 

ABBILDUNG 9-2: Ein Beispielprogramm zu LITERAL, [ und ] 


Dann legen wir die Zahl 5 auf den Stack und speichern diesen Wert 
in VAR. In der nachsten Zeile sehen wir die Definition von SUMME, 
worin die FORTH-Worter zum Holen des Variablenwerts in eckige 
Klammern eingeschlossen sind. Das Wort X sorgt daf ur , daB an- 
schlieBende Befehle ausgefuhrt und nicht compiliert werden, wenn 
der Block geladen wird. Die Ausfuhrung geht so lange weiter, bis 
FORTH auf das Wort t) stoBt. Dahinter wird wieder normal mit der 
Compilierung wei tergemacht . Das bedeutet, daB wahrend der Compi- 
lierung von SUMME der Wert 5, der in VAR gespeichert ist, auf den 
Stack gelegt wird. Es folgt das Kommando LITERAL. Dieses sorgt 
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dafur, da£ die einfach genaue Integer an oberster Stack-Position 
vom Stack entfernt und in die Compilierung von SUMME mit aufge- 
nornmen wird. Die gemeinsame Wirkung dieser Befehle ist also ge- 
nauso, als hatten wir die Konstante 5 nach dem Wort SUMME in 
Zeile 2 geschrieben. Das selbstdef inierte SUMME entfernt also die 
oberste Zahl vom Stack und addiert den Wert 5 darauf. Das Ergeb- 
nis dieser Addition wird dann auf den Stack gelegt. 

Betrachten Sie nun die Definition von ERGEBNIS in Zeile 3. Dieses 
Wort entfernt die oberste Zahl vom Stack , multipliziert sie mit 7 
und dupliziert das Ergebnis. Das Produkt wird daraufhin in VAR 
gespeichert. Das Wort ERGEBNIS hat also als Ergebnis diejenige 
Zahl, die sich ergibt, wenn man den obersten Stack-Eintrag mit 7 
multipliziert und darauf 5 addiert. 

Wie wir sehen konnten, entfernt LITERAL die oberste einfach 
genaue Integer vom Stack und sorgt dafur, daS sie in den Worter- 
bucheintrag des Wortes eingeht, das gerade compiliert wird. Die 
Stack-Relation lautet also 


n — > 


(9-1) 


vorausgesetzt , die FORTH-Worter [ und ] werden innerhalb einer 
Wortdef inition eingesetzt. Wahrend des Compiliervorgangs werden 
Befehle, die zwischen eckigen Klammern stehen, ausgefuhrt und 
nicht mit ubersetzt. 


9.2 Alternative WSrterbficher 


Wenn ein Wortereintrag im Worterbuch gespeichert wird, dann wird 
darin unter anderem die Adresse des nachsten Worterbucheintrags 
mit vermerkt. Man spricht in diesem Fall von einem Kettungsf eld 
oder Zeiger . Jeder einzelne Worterbucheintrag besteht seinerseits 
aus einer Folge von zusammenhangenden Speicherwortern . Wenn das 
Worterbuch durchsucht wird, dann beginnt man dabei von hinten, 
d.h., der letzte Worterbucheintrag ist der erste, bei dem die 
Suche beginnt. Hat der letzte Worterbucheintrag nicht den passen- 
den Namen, dann geht man dem Zeiger im Verkettungsf eld nach und 
sucht mit dem vorletzten Eintrag weiter. Gelegentlich ist es 
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wiinschenswert , in diesen Suchvorgang erne neue Ordnung einzufuh- 
ren. Nehmen Sie etwa an, daB Sie ein Programs mit Ihrem Editor 
bearbeiten. Es ware nun wiinschenswert, daB FORTH zuerst nach den 
Edi torkommandos sucht, da dadurch die Zeit fur die Worterbuchsu- 
che verkiirzt werden konnte. Bei anderen Anwendungen ware es wie- 
derum wiinschenswert, andere Wortgruppen als erste durchsuchen zu 
lassen. 

Wir wollen deshalb einmal sehen , wie der Aufbau des Worterbuches 
und die Reihenfolge, in der es durchsucht wird , beeinfluBt werden 
kann. Alle Eintrage im Worterbuch sind miteinander uber das 
Kettungsfeld verkniipft. Wir konnen jedoch Teilmengen von Wortern 
zusammengruppieren. Man spricht in FORTH im Zusammenhang mit 
einer solchen Gruppe von einem Vokabular. Das Worterbuch braucht 
nicht eine lineare Abfolge verketteter Worter zu sein; es sind 
auch Verzweigungen in dieser Struktur moglich. Nehmen wir z.B. 
an, in unserem Worterbuch gibt es drei solche Verzweigungen Oder 
parallele Strange. In jedem Strang zeigt das Kettungsfeld eines 
Wortes zuruck auf den Vorganger in diesem Strang. Es ist jedoch 
ohne weiteres moglich, daB zwei Worter aus zwei unterschiedlichen 
Strangen auf einen gemeinsamen Vorganger in dem dritten Strang 
verweisen. Die ersten beiden Strange verweisen allerdings nicht 
aufeinander. Jeden solchen Strang in einem Worterbuch kann man 
nun als Vokabular auffassen. Das Hauptvokabular in der Program- 
miersprache FORTH tragt sinnigerweise den Namen FORTH. Alle bis- 
her geschriebenen Definitionen wurden in dieses Vokabular einge- 
tragen. Wie wir aber bereits gesagt haben , ist es gelegentlich 
wiinschenswert, separate Unterworterbiicher (Vokabular) einzurich- 
ten. Wir wollen einmal sehen, wie dies erreicht werden kann. 

VOCABULARY - Mit dem FORTH-Wort VOCABULARY richtet man ein neues 
Teilworterbuch (ein neues Vokabular) ein. Wenn wir beispielsweise 
ein Vokabular mit dem Namen HOUSE vereinbaren wollen, dann geben 
wir zuerst das Kommando: 


VOCABULARY HOUSE 


( 9 - 2 ) 


In einigen FORTH-Versionen ist es notig, hinter HOUSE das Komman- 
do IMMEDIATE zu schreiben. Bis jetzt ist HOUSE noch kein Teilvo- 
kabular. Wenn wir jedoch das Wort HOUSE rufen, dann wird dieses 
zum neuen aktuellen Vokabular. Angenommen , das FORH-System durch- 
sucht nun das Worterbuch. Die Suche beginnt immer mit dem aktuel- 
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len Vokabular. Nur wenn darin das gesuchte Wort nicht enthalten 
ist, dann setzt das System die Suche mit dem FORTH-Vokabular 
fort. Wenn wir das Wort FORTH rufen, dann machen wir wieder die- 
ses Vokabular zum aktuellen. Eine Worterbuchsuche wiirde nun lm 
FORTH -Worterbuch beginnen. Findet sich jedoch nun das gesuchte 
Wort nicht, dann verzweigt die Suche in diesem Falle nicht zum 
Teilvokabular HOUSE. Indem wir die Definition von Teilworterbii- 
chern sorgsam planen, konnen wir damit sehr bequem arbeiten. 
Natiirlich kann man genausogut mit ausschlieBlich einem Worterbuch 
arbeiten. Viele Verarbei tungsschri tte werden jedoch beschleunigt , 
wenn man sich alternativer Worterbucher bedient. 

CONTEXT, CURRENT und DEFINITIONS - Wir miissen unsere Ausfiihrungen 
vom letzten Abschnitt dahingehend erweitern, daft ein Unterschied 
zwischen dem Worterschatz besteht, der durchsucht und dem, an den 
neue Definitionen angefiigt werden. Die Worterbuchsuche findet im 
Kontex tworterbuch statt, wahrend neue Definitionen ins aktuelle 
Worterbuch aufgenommen werden. Wenn wir nun das FORTH-Wort DEFI- 
NITIONS rufen, dann wird das Kontex t- Worterbuch auch zum aktuel- 
len. Wenn wir z.B. nach Ausfuhrung von (9-2) zusatzlich noch 
HOUSE und anschliefiend DEFINITIONS ausfuhren, dann werden alle 
neuen Definitionen auch in das Teilworterbuch HOUSE compiliert. 
Nocheinmal: Neue Eintrage werden im aktuellen Worterbuch vorge- 
nommen, wahrend Worterbuchsuchen grundsatzlich im Kontex tworter- 
buch stattfinden. 

FORTH merkt sich in zwei speziellen Variablen, welches Worterbuch 
nun das Kontex t- und welches das aktuelle Worterbuch ist; sie 
heiBen CONTEXT und CURRENT. In CONTEXT finden wir die Adresse des 
Worterbuchnamens , bei dem die Worterbuchsuche beginnen soil, fthn- 
lich steht in CURRENT die Adresse des Worterbuches , in das neue 
Definitionen eingetragen werden sollen. Sowohl CONTEXT als auch 
CURRENT haben als Stack-Relation 


— > 


a 


(9-3) 


Beach ten Sie, daB man durch einen Aufruf von CONTEXT bzw. CURRENT 
die Adresse dieser Variablen und nicht etwa die der entsprechen- 
den Worterbucher auf den Stack bekommt. 

Wir wollen nun noch weitere Einzelheiten der Worterbuchsuche be- 
sprechen. Angenommen, wir arbeiten mit drei verschiedenen Worter- 
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buchern , die in der Reihenfolge vereinbart wurden : FORTH, HOUSE 
und BOOK. Falls BOOK das Kontex tworterbuch ist, dann bezieht eine 
Worterbuchsuche alle drei Worterbiicher mit ein. 1st andererseits 
HOUSE das Kontex tvokabular , dann wird BOOK bei der Suche iibergan- 
gen . 

' - Wir miissen jetzt noch das FORTH-Wort ' besprechen. Wird es 
ausgefiihrt, dann liegt die Adresse des nachsten Wortes im Einga- 
bestrom auf dem Stack. Wenn wir z.B. folgende Wortfolge eingeben: 


' NUMB 


(9-4) 


dann erhalten wir als Ergebnis die Adresse von NUMB auf dem 
Stack. Dies setzt allerdings voraus , daB NUMB ein Name ist> der 
im Kontextworterbuch bekannt ist. Sie konnen also uberpriifen, ob 
das System einen bestimmten Namen momentan kennt , indem Sie ■ und 
anschlieBend den gewlinschten Namen eingeben. Erscheint die ubli- 
che Bereitschaf tsmeldung Ihres Systems auf dem Bildschirm, dann 
bedeutet dies, daB der Name momentan bekannt ist. Sehen Sie statt 
dessen jedoch den Namen, gefolgt von einem Fragezeichen , dann 
heiBt das, daB der fragliche Name durch eine Worterbuchsuche 
nicht ausfindig gemacht werden kann . Ebenso kann man mit 1 die 
Adresse einer Konstante finden und dann den darin gespeicherten 
Wert modif izieren . 


9.3 Weitere FORTH -Koonandos 


Die im Folgenden vorgestell ten FORTH-Worter befassen sich zum 
Teil mit Manipulationen des Arbeitsspeichers , zum Teil fiihren sie 
eine vollig neue Programmiertechnik ein. 

MYSELF - Oft ist es wiinschenswert , wenn sich ein FORTH-Wort 
selbst aufrufen kann; man spricht in diesem Fall von einer rekur- 
siven Definition. Dazu setzt man das Kommando MYSELF ein. Wir 
wollen dies an einem Beispiel erlautern. In Abbildung 9-3 sehen 
Sie ein FORTH-Wort, dem wir den Namen RECURSIVE gegeben haben und 
das f olgendermaBen funktioniert : Es legt eine 3 auf den Stack und 
fuhrt dann die Addition aus . Die Summe wird dupliziert und an- 
schlieBend urn 99 vermindert. SchlieBlich uberpriifen wir, ob wir 
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0 ( Ein rekursives Programm ) 

1 : RECURSIVE 3 + DUP 99 - 0> 

2 IF . QUIT THEN MYSELF ; 

3 

4 

ABBILDUNG 9-3: Ein rekursives Programmbei spiel 


einen Wert groBer Null erhalten. 1st dies der Fall, dann wird der 
oberste Stack-Eintrag ausgegeben, und das Programm bricht ab . 1st 
die Zahl jedoch kleiner als 0, dann rufen wir das Wort MYSELF. 
Dies sorgt dafiir, daB sich das Wort RECURSIVE selbst aufruft und 
den ganzen Vorgang wiederholt. Somit addiert unser Beispielpro- 
gramm fortgesetzt 3 auf eine Zahl, bis die entstehende Summe den 
Wert 100 iibersteigt. In diesem Fall bricht der ProzeB ab, und die 
Ergebniszahl wird ausgegeben. 

Beim Einsatz von MYSELF sollten Sie Vorsicht walten lassen. Ach- 
ten Sie darauf, daB sich ein Wort nicht ununterbrochen selbst 
aufruft. In diesem Fall hangt sich das System namlich auf, und 
Sie mussen Ihren Rechner neu starten. Auch sollten Sie vorsichtig 
sein, damit nicht fortgesetzt Daten auf den Stack gelegt werden 
und dieser somit den gesamten zur Verfiigung stehenden Speicher- 
platz tiberschreibt. 

EXECUTE - Wenn wir das Wort EXECUTE auf rufen, dann sorgt dieses 
dafiir, daB das Wort, dessen Adresse auf dem Stack zu finden ist, 
ausgefiihrt wird. 

EXIT - Wird EXIT innerhalb eines anderen Wortes gerufen, dann 
wird dessen Ausfuhrung abgebrochen. Sie konnen EXIT jedoch nicht 
innerhalb von Schleifen verwenden. Befindet sich EXIT innerhalb 
eines Blockes und ist dort nicht Teil eines anderen Wortes, dann 
werden beim Laden dieses Blockes sowohl der Obersetzungs- als 
auch der Ladevorgang abgebrochen, wenn FORTH auf das Wort EXIT 
stoBt . 

FIND - Dieses Wort legt die Adresse des nachsten Wortes im Einga- 
bestrom auf den Stack. Sollte es sich im Worterbuch nicht ausfin- 
dig machen lassen, dann schreibt es statt dessen eine 0 auf den 
Stack. 
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Gelegentlich ist es wunschenswert , einen zusammenhangenden Block 
von Speicherwortern mit einem bestimmten konstanten Wert zu bele- 
gen. Wir haben etwa in Abschnitt 8-2 erfahren, daB bei der Uber- 
tragung von Inf ormationen auf Diskette eventuell uberschiissige 
Bytes mit abgespeichert werden konnen. In diesem Fall ware es 
wunschenswert, diese UberschuBdaten zu loschen, so daB sich auf 
der Diskette keine sinnlosen Inf ormationen befinden. Das Loschen 
konnte man z.B. dadurch erreichen , daB in den uberschiissigen 
Speicherbereich an jede Adresse eine 0 geschrieben wird. Bei 
einigen Computern ist ein spezieller Bereich des Arbeitsspeichers 
fur den Bildschirmspeicher reserviert. In diesem Fall ist der 
Computerbildschirm in einzelne Elemente unterteilt, von denen je- 
des die GroBe eines Buchstabens oder Sonderzeichens hat. Jede 
dieser Bi ldschirmkomponenten entspricht nun genau einer Adresse 
im Bildschirmspeicher. Welches Zeichen an einer bestimmten Stelle 
des Bildschirms erscheint, hangt davon ab, welcher ASCII-Code 
sich an der Adresse befindet, die dieser Bildschirms telle ent- 
spricht. Speicherworte , in denen der Bildschirminhalt abgebildet 
wird, sind stets zusammenhangend. Angenommen , wir wollen bei ei- 
nem solchen Computersystem den Bildschirm loschen. Dazu miissen 
wir lediglich den ASCII-Code 32 fur das Leerzeichen in jede 
Adresse des Bildschirmspeichers schreiben. Fur die Erledigung 
solcher Aufgaben stellt FORTH mehrere Worter zur Verfugung. Eines 
davon lautet FILL. Hier ein Anwendungsbeispiel : 


26000 1 000 90 FILL 


(9-5) 


Bei Ausfuhrung von (9-5) werden 1000 Speicherworter , beginnend 
bei der Adresse 26000, mit dem Zeichen besetzt, das den ASCII- 
Code 90 (der Buchstabe Z) hat. Die Stack-Relation fur FILL lautet 


a n„ 


--> 


(9-6) 


Urn einen Teil des Arbeitsspeichers mit Leerzeichen zu fiillen, 
miissen wir nur fur n^ die Zahl 32 setzen. Es gibt jedoch noch ein 
anderes FORTH-Wort, das fur diesen speziellen Zweck beguemer ist. 
Es lautet BLANK oder bei einigen Systemen BLANKS. Dieses Wort hat 
folgende Stack-Relation: 
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a n — > (9-7) 

Hierbei werden n auf einanderf olgende Speicherworter mit Leerzei- 
chen gefullt, wobei bei der Adresse a begonnen wird. 

ERASE - Dieses Wort funktioniert ahnlich wie BLANK, auBer daB der 
Speicher nicht mit Leerzeichen , sondern mit binaren Nullen be- 
setzt wird. 


9 . 4 Obimgsauf gaben 


Uberprufen Sie die Programme, die Sie in den folgenden Ubungsauf- 
gaben schreiben, indem Sie sie auf Ihrem Computer laufen lassen. 
Hal ten Sie einzelne Definitionen moglichst kurz , bedienen Sie 
sich des modularen Programmierstils . 


9-1 Erortern Sie die Funktionsweise von IMMEDIATE. 

9-2 Legen Sie die Unterschiede zwischen [COMPILE] und COMPILE 
dar. Schreiben Sie dazu eigene FORTH-Worter , die den Unter- 
schied erhellen. 

9-3 Schreiben Sie ein Programm, das jedesmal dann automatisch 
ein Disketteninhaltsverzeichnis ausgibt, wenn der Disketten- 
block mit dem Inhaltsverzeichnis geladen wird. 

9-4 Andern Sie das Programm in Abbildung 7-2 so ab , daB bei 
seiner Ubersetzung jedesmal ein Punkt ausgegeben wird, wenn 
eine Textzeile verarbeitet wird. 

9-5 Erortern Sie die Einsatzmoglichkeiten fur das FORTH-Wort 

LITERAL. 

9-6 Wiederholen Sie Aufgabe 9-5 mit den FORTH-Wortern [ und ]. 

9-7 Schreiben Sie ein FORTH -Programm , das den Durchschni ttswert 
eines Studenten in vier Tests ermittelt und das Ergebnis in 
einer Variablen speichert. Das Programm soil den Durch- 
schni tt sowie eine Meldung ausgeben, ob der Student bestan- 
den hat. Die Punkt zahl zum Bestehen der Priifung soil am An- 
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fang in derselben Variablen gespeichert werden, in der sich 
letztendlich der Durchschnitt befindet. 

9-8 Schreiben Sie ein rekursives FORTH -Programm , das die Summe 
von 20 auf einanderf olgenden Zahlen berechnet, wobei es mit 
der Zahl beginnt , die sich an oberster Stack-Position befin- 
det. 

9-9 Wiederholen Sie Aufgabe 9-8, wobei diesmal jedoch 20 auf ein- 
anderf olgende gerade Zahlen addiert werden sollen. 

9-10 Wiederholen Sie Aufgabe 9-8, wobei diesmal 20 aufeinander- 
f olgende ungerade Zahlen addiert werden sollen. 

9-1 1 Schreiben Sie unter Verwendung von MYSELF ein rekursives 
Programm zur Berechnung der Fakultat. 

9-12 Schreiben Si| ein rekursives Programm, das die Summe des 
Ausdrucks 1/n fur n = 1, 2, 3, ... berechnet. Arbeiten Sie 

mit Gleitkommazahlen. Das Programm sollte abbrechen , wenn 
1/n" kleiner als 0.00001 wird. 

9-13 Fiillen Sie 1024 zusammenhangende Speicheradressen mit dem 
ASCI I -Wert fur X. 

9-14 Warum kann das Programm der letzten Aufgabe unter Umstanden 
dazu fuhren, dafi Sie Ihr System neu starten mussen? 

9-15 Schreiben Sie ein Programm, das einen Blockpuffer mit Leer- 
zeichen auffullt. 
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Anhang: Glossar der FORTH-W5rter 


Dieses Glossar fuhrt alle besprochenen FORTH-Wdrter auf. Sie fin- 
den darin den Abschnitt, in dem das entsprechende Wort besprochen 
vird, seine Stack-Relation und eine kurze Beschreibung der Funk- 
tionsweise. Nicht alle im Glossar enthaltenen Worter sind Be- 
standteil von FORTH-79 Daruber hinausgehende Befehle sind in der 
Regel in MMSFORTH und anderen FORTH-Systemen zu finden. Genauere 
Informationen entnehmen Sie bitte den Abschnitten, in denen die 
einzelnen Worter definiert werden. 


BESCHREIBUNG 


ABSCHN. STACKRELATION WORT 


Speichert eine Zahl in der Adres- 6-2 n a — > ! 

se an oberster Stack-Position 

Dient bei der Zahlenausgabe mit 3-3 — > d 2 # 

Maske fur die Zif ferndars tellung 
vorzeichenloser doppelt genauer 
Integers 


Beendet die maskierte Zahlenaus- 3-3 d — > an #> 

gabe 

Fordert zur Eingabe einer einfach 3-1 --> n #IN 

genauen Integer auf 

Wandelt bei der Zahlenausgabe mit 3-3 d — > 0 #S 

Maske Zif f ernzeichen in den AS- 
CI I -Code urn 

Dient zum Speichern von Strings 7-3 a$ a — > $! 

Vereinbart einen String im Ar- 7-3 — > a $" 

beitsspeicher 

Entfernt nachlaufende Blanks vom 7-3 $-TB 

String 

Druckt einen String 7-3 a — > $. 
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Vereinbart einen String-Array 

7-3 

n i n 2 

— > 

$ ARRAY 

Vergleicht Stringvariable 

7-3 

a i a 2 

— > 

n $COMPARE 

Vereinbart eine Stringkonstante 

7-3 



$CONSTANT 

Vereinbart eine Stringvariable 

7-3 



$ VAR I ABLE 

Vertauscht die Werte in Stringva- 
riablen 

7-3 

a i a 2 

— > 

$XCG 

Liefert die Adresse des nachsten 
Wortes im Eingabestrom 

9-2 

a 


I 

Leitet einen Kommentar ein 

2-3 



( 

Liefert das Produkt zweier Zahlen 

2-1 

n i n 2 

— > 

* 

Multipliziert n 1 mit n^ und divi- 
diert das doppelt genaue Produkt 
durch n^ 

5-2 

n l n 2 

n 3 

-> n */ 

Ahnlich wie */; liefert jedoch 
auch den Rest 

5-2 

n 1 2 3 

— > n n 

r q 

*/MOD 

Liefert die Summe zweier Zahlen 

2-1 

n 1 n 2 

— > 

n + 

Inkrementiert den gespeicherten 
Wert 

6-2 

n a — 

> 

+ 1 

Inkrementiert eine Schleifenva- 
riable 

4-3 

n — > 


+LOOP 

Compiliert n ins Worterbuch 

6-3 

n — > 


- 

Subtrahiert n 2 von ^ 

2-1 

n l n 2 

— > 

- 

Aktualisiert den Zeichenzahler 

7-3 

a n i 
— > a 

n 2 

-TRAILING 

Gibt eine Zahl aus 

1-4 

n — > 


• 

Gibt Text aus 

3-1 



ii 
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Gibt die Zahl im Datenfeld n 2 

aus 

3-3 

n 1 n 2 

— > 

.R 

Dividiert durch n 2 

2-1 

n 1 n 2 

— > 

q / 

Division mit Quotient und Rest 

2-1 

n i n 2 

— > 

r q /MOD 

"Wahr" , falls n < 0 

4-1 

n — > 

f 

0< 

"Wahr" , falls n = 0 

4-1 

n — > 

f 

0= 

"Wahr" , falls n > 0 

4-1 

n — > 

f 

0> 

Inkrementiert den obersten Stack- 
Eintrag um Eins 

2-7 

n — > 

n l 

1 + 

Dekrementiert den obersten Stack- 
eintrag um Eins 

2-7 

n — > 

n l 

1- 

Multipliziert den obersten Stack- 
Eintrag mit 16 

2-7 

n — > 

n i 

16* 

Speichert eine doppelt genaue 

Integer 

6-2 

da — 

-> 

2! 

Definiert einen zweidimensionalen 
String-Array 

7-3 

n l n 2 

n 3 ’ 

-> 2$ ARRAY 

Multipliziert die oberste Integer 
mit 2 

2-7 

n — > 

n 1 

2* 

Addiert 2 auf die oberste Integer 

2-7 

n — > 

n l 

2+ 

Subtrahiert 2 von der obersten 
Integer 

2-7 

n — > 

"l 

2- 

Dividiert die oberste Integer 

durch 2 

2-7 

n — > 

"l 

2/ 

Holt eine doppelt genaue Integer 

6-2 

a — > 

d 

2 @ 

Definiert einen zweidimensionalen 
Array 

6-4 

n i n 2 

— > 

2ARRAY 
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Definiert eine doppelt genaue 

Konstante 

6-1 

d — > 

2COHSTANT 

Definiert einen doppelt genauen 
Integer-Array 

6-4 

n i n 2 “ > 


2DARRAY 

Entfernt die oberste doppelt ge- 
naue Integer vom Stack 

2-5 

d — > 


2DROP 

Dupliziert die oberste doppelt 
genaue Integer auf den Stack 

2-5 

d — > d d 


2DUP 

Dupliziert die zweite doppelt 
genaue Integer auf dem Stack an 
oberste Stack-Position 

2-5 

‘-'A 

d 1 

OVER 

Rotiert die dritte doppelt genaue 
Integer an oberste Stack-Position 

2-5 

-AX 

d 1 

2ROT 

Vertauscht die obersten beiden 
doppelt genauen Integers 

2-5 

d 1 d 2 
-> d 2 a, 


2 SWAP 

Vereinbart eine doppelt genaue 
Variable 

6-2 


2VARIABLE 

Leitet die Definition eines 

FORTH-Wortes ein 

2-3 



: 

Beendet die Definition eines 

FORTH-Wortes 

2-3 



r 

Wird "wahr" , falls n^ < n ^ 

4-1 

n 1 n 2 — > 

f 

< 

Leitet die Zahleneingabe mit Mas- 
ke ein 

3-3 



<# 

Wird "wahr" , falls n^ kleiner 
oder gleich n^ ist 

4-1 

n l n 2 

f 

<= 

Wird "wahr" j falls ungleich n 2 

ist 

4-1 

n l n 2 

f 

<> 

Dupliziert n Speicherworter begin- 

7-1 

a l a 2 n - 

-> 

<CMOVE 


nend bei an der Adresse a^ ; 


310 



Anhang: Glossar der FORTH-Worter 


Ibertragung beginnt bei der 
-ochstwertigen Adresse 

1st "wahr" , falls n <( gleich n 2 4-1 n 1 n 2 — > f 

• St 


:st "wahr" , falls groBer Oder 

gleich n 2 ist 

4-1 

n 1 n 2 

— > f 

>= 

Inthalt die Startposition fur die 
1‘ntersuchung des Eingabestroms 

7-2 

— > a 


<IN 

Vbertragt eine Integer auf den 
Xon troll-Stack; benotigt entspre- 
chendes R> 

2-6 

n — > 


>R 

Dupliziert die oberste einfach 
genaue Integer , es sei denn , die 
se ist gleich 0 

4-5 

n — > 

n n 

?DUP 

Holt die an der Adresse gespei- 
cherte einfach genaue Integer 

6-2 

a — > 

n 

e 

Ersetzt die oberste einfach ge- 
naue Integer durch ihren Absolut- 
betrag 

2-7 

n i 

• n 2 

ABS 

Erweitert den Speicherbereich 

einer Variablen um n Byte 

6-3 

n — > 


ALLOT 

Bitweises logisches AND 
Vereinbart einen Array 

5-5 

n i n 2 

--> n 3 

AND 

ARRAY 

Legt den ASCI I -Wert des ersten 
Zeichens in dem String, der bei a 
beginnt, auf den Stack 

6-3 

n — > 


ASC 

Enthalt die Ein-/Ausgaberadix 

6-3 

a — > 

n 

BASE 

Leitet eine Schleife ein 

2-7 

— > a 


BEGIN 

Fullt Speicherbereiche mit Leer- 

9-3 

an — 

> 

BLANK 


zeichen 
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Enthalt die Adresse des Blockpuf- 
fers fur den Eingabestrom 

Obertragt den Block n von der 
Diskette in den Arbei tsspeicher 
und legt dessen Startadresse auf 
den Stack 

Wie BLOCK, die Daten werden je- 
doch nicht iibertragen 

Speichert das niedrigstwertige 
Byte einer einfach genauen Inte- 
ger 

Holt ein Byte und speichert es 
als einfach genaue Integer 

Beendet eine CASE-Anweisung 

Wandelt eine ein Byte lange Inte- 
ger in ihre ASCI I-Darstellung urn; 
das Ergebnis steht im temporaren 
Arbeitsbereich, dessen Adresse 
auf den Stack gelegt wird 

Obertragt n Bytes von Adresse 1 
nach Adresse 2; die Obertragung 
beginnt bei den niedrigwertigen 
Adressen 

Nimmt einen Wert in die Wortdefi- 
nition mit auf 

Vereinbart eine Konstante mit dem 
Wert n 


7- 2 — > a BLK 

8- 1 n — > a BLOCK 


8-1 n — > a BUFFER 

7-1 n a — > C! 

7-1 a — > n C§ 

4-6 CASEND 

7-3 c — > a CHR$ 


7-1 a 1 a 2 n — > CMOVE 

9-1 COMPILE 

6-1 n — > CONSTANT 


Enthalt die Adresse des Kontext- 9-2 — > a CONTEXT 

Vokabulars 

Legt die Anf angsadresse des 8-2 a — > a^ n COUNT 

Strings und den Stringzahler auf 
den Stack 
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Anhang : Glossar der FORTH-Worter 


Sendet einen Zeilenvorschub 

3-1 



CR 

Richtet einen Worterbucheintrag 

6-3 



CREATE 

ein 





Lenkt die Ausgabe auf den 

Bildschirm 

3-1 



CRT 

Enthalt die Adresse des aktuellen 
Worterbuches 

9-2 

— > a 


CURRENT 

Fordert zur Eingabe einer doppelt 
genauen Integer auf 

5-1 

— > d 


D#IN 

Multipliziert doppelt genaue In- 

5-1 

a, d 2 _> 

d 

n 

D* 

tegers 


r 


Multipliziert d^ mit d^ und divi- 
diert das vierfach genaue Produkt 

5-2 

d 1 d 2 d 3 

-> 

D*/ 

d 

anschlieBend durch d^ 





Wie D*/; liefert aber auch den 
Rest 

5-2 

d i> d a d a 

r q 


D*/MOD 

Addiert zwei doppelt genaue Zah- 
len 

5-1 

d 1 d 2 ~" > 

d 

D+ 

Subtrahiert zwei doppelt genaue 
Zahlen (d^ minus d 2 ) 

5-1 

A 

CM 

'O 

d 

D- 

Liefert den Quotienten von d^ und 
d 2 

5-1 

d 1 d 2 -> 

d 

D/ 

Wie D/, liefert aber auch noch 
den Rest 

5-1 

d 1 *1 
“ > «r d q 


D/MOD 

Gibt eine doppelt genaue Integer 

5-1 

d — > 


D. 

aus 





Gibt eine doppelt genaue Integer 
in einem n Zeichen langen Daten- 
feld aus 

5-1 

d n — > 


D.R 
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Anhang: Glossar der FORTH-Worter 


1st "wahr" , wenn der doppelt 

genaue Wert gleich 0 ist 

5-1 

d — > f 

D0= 

1st "wahr", wenn d^ kleiner d 2 
ist 

5-1 

a, a 2 -> £ 

IK 

Liefert den Absolutwert einer 

doppelt genauen Integer 

5-1 

a, ~> a 2 

DABS 

Vereinbart einen Array mit dop- 
pelt genauen Integers 

Setzt die Zahlenbasis auf 10 

6-3 

2-7 

n — > 

DARRAY 

DECIMAL 

Macht den Kontex t-Wortschatz zum 
aktuellen Wortschatz 

9-2 

DEFINITIONS 

Liefert die Stack-Tiefe in Ein- 
heiten von einfach genauen Inte- 
gers 

2-2 

--> n 

DEPTH 

Liefert die grofiere von zwei 

doppelt genauen Integers 

5-1 

a, a 2 ~> a 

DMAX 

Liefert die kleinere von zwei 
doppelt genauen Integers 

5-1 

a , d 

DMIN 

Dreht das Vorzeichen einer dop- 
pelt genauen Integer um 

5-1 

d — > -d 

DNEGATE 

Leitet eine Schleife ein 

4-3 

n 1 n 2 

DO 

Liest Diskettensektoren 

8-2 

9 n i n 2 n 3 

n 4 — > n f 

DRDSECS 

Entfernt die oberste einfach ge- 
naue Integer vom Stack 

2-2 

n — > 

DROP 

Dupliziert die oberste einfach 
genaue Integer 

2-2 

n — > n n 

DUP 

Schreibt Diskettensektoren 

8-2 

a n 1 n 2 n 3 

DWTSECS 


1 2 

n 4 — > nf 
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Anhang: Glossar der FORTH-Worter 


Bearbeitet den Block, der vom In- 
halt von SCR bestimmt wird 

Bearbeitet Block n; n wird in SCR 
gespeichert 

Fur Programmverzweigungen 

Gibt ein Zeichen aus 

Markiert alle Puffer als leer 

Setzt n aufeinanderfolgende Byte 
auf den Wert 0, beginnend mit der 
Adresse a 

Fuhrt den Worterbucheintrag aus , 
dessen Adresse auf dem Stack 
liegt 

Beendet die Programmbearbeitung 

Liest Zeichen in den Arbeitsspei- 
cher ein, beginnend bei Adresse 
a, wobei maximal n Zeichen Oder 
bis zum ersten Return gelesen 
wird 

Belegt n aufeinanderfolgende 
Speicherworter (beginnend bei 
Adresse a) mit dem ASCII-Wert n 

c 

Sucht die Adresse des nachsten 
Wortes im Eingabestrom 

Speichert die markierten Puffer 
auf Diskette 

Loscht alle Worter bis ein- 
schlieBlich dem angegebenen aus 
dem Worterbuch 

Name des Hauptworterbuches 


8-1 

4-2 n — > 

4-2 

7- 1 c — > 

8- 1 EMPTY 

9- 3 a n — > 

9-3 a — > 

9-3 

7- 2 a n — > 

9-3 a n n — > 
c 

9-3 — > a 

8 - 1 
2-4 

9-2 


E 

EDIT 

ELSE 

EMIT 

BUFFERS 

ERASE 

EXECUTE 

EXIT 

EXPECT 

FILL 

FIND 

FLUSH 

FORGET 

FORTH 
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Anhang: Glossar der FORTH-Worter 


Liefert die Adresse des nachsten 
verfilgbaren Worterbuchbytes 

7-2 

--> a 

HERE 

Umwandlung der Zahlenausgabe in 
Hexadezimaldarstellung 

2-7 


HEX 

Zur Einfugung von Zeichen bei der 
Zahlenausgabe mit Maske 

3-3 

c — > 

HOLD 

Legt den Schleif enindex auf den 
Stack 

4-3 

--> n 

I 

Legt den Testwert der Schleife 
auf den Stack 

4-3 

--> n 

I 1 

Fur Programmverzweigungen 

4-2 

f — > 

IF 

Schaltet von Compilierung in Aus- 
fuhrung urn 

9-1 

"l n 2 

IMMEDIATE 

Gibt die erste Zeile von n 

Blockes aus, beginnend mit Block 

9-1 

A 

1 

CM 

C 

c 

INDEX 


Liefert den Index der dynamisch 4-3 — > n J 

iibernachsten Schleife auf den 

Stack 

Legt den ASCII-Code des nachsten 7-1 — > n KEY 

Eingabezeichens auf den Stack 

Gibt den Block aus, dessen Nummer 8-1 L 

in SCR gespeichert ist 

Beendet eine Schleife 4-3 LEAVE 

Obertragt die n ersten Zeichen 7-3 a n — > LEFTS 

des Strings, der bei a beginnt, 
in den temporaren Arbei tsbereich 

Legt die Lange eines Strings auf 7-3 a — > n LEIN 

den Stack 
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Anhang: Glossar der FORTH -Worter 


Gibt den Block n aus und legt n 
in SCR ab 

2-3 

n — > 

LIST 

N limit den Stack-Wert, ohne ihn zu 
interpretieren , in die Compila 
tion mit auf 

9-1 

n — > 

LITERAL 

Ladt den Block n 

2-3 

n — > 

LOAD 

Ladt n 2 Block, beginnend mit n^ 

8-1 

n l n 2 — > 

LOADS 

Inkrementiert den Schleifenindex 

4-3 


LOOP 

Doppelt genaues Produkt zweier 
einfach genauer Integers 

5-3 

n 2 — > d 

M* 

Multipliziert d 1 mit n 2 und spei- 
chert das Produkt als dreifach 
genaue Integer , welche dann durch 

5-3 

d 1 n 2 n 3 
“> *2 

M*/ 


dividiert wird; der Quotient 
ist doppelt genau 


Gemischte Addition 

5-3 

d^ n — > d 2 

M+ 

Gemischte Subtraktion 

5-3 

d^ n — > d 2 

M- 

Gemischte Division 

5-3 

d n — > n 2 

M/ 

Wie M/, auBer daB sowohl Quotient 
als auch Rest geliefert werden 

5-3 

d n L 

— > d n 
r q 

M/MOD 

Liefert den groBeren von zwei 
Werten 

2-7 

n l n 2 - _> n 

MAX 

Obertragt an die Adresse a^ einen 
Zeichen langen Teilstring, der 
ab der n^ten Zeichenposition des 
Strings a beginnt 

7-3 

a n l n 2 
-> 3l 

MID$ 

Liefert den kleineren von zwei 
Werten 

2-7 

n i n 2 — > n 

MIN 

Liefert den Rest der Division von 
u i / n 2 

2-1 

n i n 2 n 

MOD 
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Anhang: Glossar der FORTH-Worter 


Verschiebt n 16 Byte lange Spei- 7-1 a 2 n — > HOVE 

cherworter, beginnend bei , 

nach 


Erlaubt rekursive Aufrufe 

9-3 


MYSELF 

Leitet eine CASE-Anweisung ein 

4-6 

n — > 

NCASE 

Ersetzt eine Zahl durch die nega- 
tive Zahl mit dem gleichen Betrag 

2-7 

n — > -n 

NEGATE 

Negiert ein Flag 

4-5 

f 1 ”> f 2 

NOT 

Setzt die Ein-/Ausgabebasis fur 
Zahlen auf das Oktalsystem 

2-7 


OCTAL 

Allgemeiner Ausgang in CASE-An- 
we is ungen 

4-6 


OTHERWISE 

Dupliziert die zweite Zahl an 
oberste Stack-Position 

2-2 

n i n 2 
n i n 2 n l 

OVER 

Enthalt die Anf angsadresse des 
temporaren Arbeitsbereichs 

7-3 

— > a 

PAD 

Loscht den Bildschirm 

3-1 


PAGE 

Legt die Ausgabe sowohl auf 

Bildschirm als auch auf Drucker 

3-1 


PORT 

Legt die Ausgabe nur auf den 
Drucker 

3-1 


PRINT 

Fur Zeicheneingabe 

7-2 


QUERY 

Loscht den Return-Stack 

3-1 


QUIT 

Ubertragt die oberste einfach 
genaue Integer vom Return-Stack 
auf den Parameter- Stack 

2-6 

--> n 

R> 

Dupliziert die oberste einfach 

i 

CN 

— > n 

R § 


genaue Integer vom Return-Stack 
auf den Parameter- Stack 
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Anhang: Glossar der FORTH-Worter 


Initialisiert den Zuf allszahlen- 
generator 

2-7 


RANDOMIZE 

Fur die Programmierung von Schlei- 
fen 

4-4 


REPEAT 

-bertragt die n letzten Zeichen 
des Strings a in den temporaren 
Arbeitsbereich, liefert dessen 
Adresse 

7-3 

an — 

> a 1 RIGHTS 

Srzeugt eine Zufallszahl und 

speichert sie in SEED 

2-7 


RN1 

Erzeugt eine Zufallszahl zwischen 
* und n^ 

2-7 

n i 

n 2 RND 

legt die n-te einfach genaue 
Integer auf dem Stack an oberste 
Stack-Position 

2-2 

n — > 

ROLL 

Befordert die dritte einfach ge- 

2-2 

CM 

CMC 

c 

A 

C~ 1 

n 3 ROT 

naue Integer an oberste Stack- 
Position 


n 3 n 1 

Markiert alle Puffer fur nachfol- 
gende Sicherungen 

8-1 


SAVE-BUFFERS 

EnthMlt die Adresse des zuletzt 
be arbeiteten Blockpuffers 

8-1 

— > a 

SCR 

Fugt den ASCI I -Code des Minuszei- 
chens bei Zahlenausgabe mit Maske 
ein, falls n negativ ist 

3-3 

n — > 

SIGN 

Gibt ein Leerzeichen aus 

3-1 


SPACE 

Vertauscht die beiden obersten 

2-2 

n 1 n 2 
“ > n 2 

SWAP 

Stack-Eintrage 


n i 

Bei Programmverzweigungen beno- 
tigt 

CM 

1 


THEN 
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Anhang: Glossar der FORTH-Worter 


Gibt n Zeichen beginnend ab der 
Adresse a aus 

3-3 

a n — > 

TYPE 

Vorzeichenlose Integermultiplika- 
tion 

5-4 

U 1 U 2 “> 

u U* 

Gibt eine vorzeichenlose Integer 
aus 

5-4 

u — > 

U. 

Gibt eine vorzeichenlose Integer 
in einem n Stellen breiten Daten- 
feld aus 

5-4 

u n — > 

U.R 

Vorzeichenlose Division mit dop- 
pelt genauem Dividenden, liefert 
Quotienten und Rest 

5-4 

u d u i 
— > u u 
r q 

U/MOE 

"Wahr" , falls u ^ kleiner u 2 ist 
(vorzeichenlose Integers) 

5-4 

A 

j 

CN 

U< 

Fur die Programmierung von Schlei- 
fen 

4-4 

f — > 

UNTIL 

Markiert alle Blockpuffer als 

gesichert 

8-1 


UPDATE 

Wandelt die ASCII-Dars tellung 

einer Integer in Binarform um 

7-3 

a — > n 

VAL 

Definiert eine Variable 

6-2 


VARIABLE 

Fur die Vereinbarung eines neuen 
Wortschatzes 

9-2 


VOCABULAr 

Fur die Programmierung von 

Schleif en 

4-4 

f — > 

WHILE 

Liest Zeichen aus dem Eingabe- 
strom; Trenner ist Zeichen mit 
ASCII-Code n 

i 

ro 

n — > a 

WO FZ 

Bitweises exklusives ODER 

5-5 

n l n 2 

n XOi 
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Anhang: Glossar der FORTH-Worter 


Fragt nach Y Oder N; N liefert 4-5 — > f Y/N 

Wahrheitswert "wahr" 

Beendet Compilierung und leitet 9-1 [ 

Ausfuhrung ein; wird in Wortdefi- 
mtionen benotigt 

Bewirkt, daS ein Wort mit dem 9-1 [COMPILE] 

Status IMMEDIATE compiliert wird 

Beendet Ausfuhrung und fahrt mit 9-1 

der Compilierung fort 
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Stichwortverzeichnis 


. 97 

.R 1 06 
I 21 1 
@ 211 
" 97 

22 

# 110 
#> 109 

#IN 98 
#S 111 
$1 257 

$" 258 

$+ 258 

$-TB 266 
$. 257 

$ ARRAY 255 

$ COMPARE 261 

$CONSTANT 254 
$VARIABLE 255 
$XCG 260 

• 300 
( 62 

) 62 

* 40 

*/ 173 

*/MOD 1 73 
+, 22 35 

+LOOP 137 

37 

-TRAILING 265 
/ 42 

/LOOP 183 
/MOD 43 
0< 123 

0 = 122 
0> 123 

1 + 84 

1- 84 

1/X 193 

10 A 193 

1 6* 85 
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Stichwortverzeichms 


21 216 

2$ ARRAY 

256 

2* 85 


2- 85 


2/ 85 


2 2 ARRAY 

233 

24ARRAY 

233 

2ARRAY 

226, 

2CONSTANT 209 

2DARRAY 

232 

2 DROP 

74 

2DUP 

74 

2<a 216 

20VER 

77 

2 ROT 

76 

2 SWAP 

75 

2 VARIABLE 215 

4ARRAY 

226 

4 CONSTANT 210 

4DROP 

196 

4DUP 

196 

4 ROLL 

196 

4 SWAP 

196 


: 59 

; 59 

< 1 24 

<# 109 

<= 126 
<> 126 
<CMOVE 240 
= 1 24 

> 1 25 

>= 1 26 

>IN 250 , 251 , 253, 

>R 78, 134 

?DUP 1 50 
[ 296 

[COMPILE] 294 
] 296 


286 
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Stichwortverzeichnis 


A 

ABORT 150 
ABORT” 150 
ABS 87 

Absolutwert 87 
Addition 25 , 35 

doppelt genau 164 
Adresse 21 1 
Aktualisierung 26, 275 
Aktuelles Worterbuch 299 
Algorithmus 155 
ALLOT 21 8 

Alphanumerische Daten 239 
AND 1 84 

Anfangswert 136 
Arbeitsspeicher 20 
Arithmetikiiberlauf 173 
Array 207, 21 7, 21 9, 222 

Dimension 229 
Element 220 
mehrdimensionaler 227 
ASC 266 

ASCII-Code 103, 266 

Assembler 13 
ATAN 1 93 
ATN2 1 94 

Ausgabe , doppelt genau 164, 165 

Ausgabemaske 107 
Ausrichtung, rechtsbiindig 106 


B 

BASE 90 
BASIC 15 

Bedingung, logische 121 
Befehl 22 
BEGIN 146, 147 

Bereitschaf tsmeldung , Unterdruckung 98 
Betriebssystem 27, 273 

Bibliothek 16 
Bildschirm 12 
loschen 98 
Bildschirmeditor 25 
Bildschirmseite 25 
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Stichwortverzeichnis 


Bildschirmspeicher 301 
Binden 1 6 

Binardarstellung 180, 183 

Binarzahl 13, 183 

Bit 183 

hochstwertiges 107 
niedrigstwertiges 107 
BLANK 302 
BLANKS 302 

BLK 250, 251, 253, 286 

Block 26, 273, 281 

compilieren 277 
laden 28 
verschieben 241 
Blockpuffer, aktualisieren 
Blockpuffer 273 
BogenmaB 1 93 
BUFFER 282 
Bug 29 

Byte 73, 217, 239 


C 

C! 239 
CHR$ 267 
CINT 192 
C@ 239 
CMOVE 240 
Code 103 
COMPILE 294 
Compiler 16, 293 

Steuerung 293 
Compilieren 
Block 277 
Definition 60 
CONJ 201 
CONSTANT 208 
CONTEXT 299 
COS 1 93 
COUNT 286 
CP% 1 99 
CP* 200 
CP+ 200 
CP- 200 


274 
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Stichwortverzeichnis 


CP. 199 
CP/ 200 
CPMINUS 201 
CPU 1 1 
CR 98 
CREATE 226 
CRT 102 
CURRENT 299 
Cursor 27, 101 

direkte Adressierung 101 


D 

D#IN 170 
D* 1 66 
D*/ 174 

D*/MOD 1 74 
D+ 164 
D- 166 
D. 165 
D.R 170 
D/ 166 
D/MOD 1 66 
D< 168 
D= 168 
DABS 1 69 
DARRAY 225 
Daten-Stack 77 
Datenausgabe 25 
Datenblock 273 
Datenfeld 106 
Datenspalte 229 
Datenzeile 229 
Debugging 29 
DECIMAL 90 
Definition 

compilieren 60 
Doppelpunkt 59 
Strichpunkt 59 
Wort 59 

DEFINITIONS 299 
DEGREES 193, 200 

Dekrementieren 84 
DEPTH 57 
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Stichwortverzeichnis 


Dezimalkomma 39 

Dezimalpunkt 39 

Dezimalsystem 89, 90 

DF#IN 195 

DF. 197 

DF.R 197 

DFABS 1 99 

DFCOMP 1 99 

DFMINUS 1 99 

DFSIGN 199 

Diskette 12 

beschreiben 283 
Inhaltsverzeichnis 27, 
Lesefehler 283 
lesen 283 
Schreibfehler 283 
Division 

doppelt genau 1 66 
mit Rest 43 
ohne Rest 42 
DMAX 1 69 
DMIN 169 
DNEGATE 169 
DO 134, 183 

Doppelt genaue Integer 73 
DRDSECS 283 
DROP 49 
Druckausgabe 

eines Blockes 276 
Drucker 1 2 

Ausgabe 1 02 
Ausgabe beenden 1 02 
DUP 48 
Duplizieren 

bedingt 150 
DWTSECS 283 


E 

E 277 
EDIT 275 

Editieren 26, 27 

Editor 25 


273 
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Stichwortverzeichnis 


Eingabe 

doppelt genau 164 
Eingabeecho 243 
Eingabestrom 253 
ELSE 129 
EMIT 243 

EMPTY -BUFFERS 276 
Endlosschleife 1 45 
ERASE 303 
Erweiterbarkeit 18 
Erweiterungswort 60 
Escape 105 
Escape-Sequenz 1 05 
EXECUTE 301 
EXIT 301 
EXP 1 93 
EXPECT 249 
Exponent 1 86 


F 

F#IN 187 
F* 188 
F+ 188 
F- 188 
F. 188 
F.R 188 
F/ 1 88 
FABS 1 90 
Fakultat 135 
FCOMP 191 
FDF 1 98 
Fehler 

syntaktischer 29 

Syntax 30 
Fehlersuche 29 
Festplatte 12 
FILL 301 
FIND 301 
FIX 192 
Flag 121 
Floppy Disk 12 
FLUSH 27, 275 

FMINUS 190 
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Stichwortverzeichnis 


FORGET 67, 72, 21 5 

Formatierung 
Zahlen 106 
FORTH 298 

Funktionen, trigonometrische 


G 

Gemischter Modus 177 
Genauigkeit, von Berechnungen 
G lei tkommaari thine tik 1 86 
Gleitkommazahl 186 
Ausgabe 1 88 
Eingabe 187 


H 

Hardcopy 1 2 
Harddisk 12 
Hauptspeicher 1 1 
HERE 250, 251 

HEX 90 

Hexadezimales Zahlensystem 89 
Hexadezimalsys tem 90 
HOLD 1 1 1 


I 

I 81, 135, 140 

I' 81 , 135, 140 

I -F 192 
IF-THEN 127 
Imaginarteil 199 
IMMEDIATE 293, 294 

IN$ 259 

Index 219, 278 

Infix-Notation 23 
Inhaltsverzeichnis 278 
Diskette 27 
Inkrement 

negatives 1 39 
Inkrementieren 84, 135 

INSTR 260 
INT 192 


193 


1 72 
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Stichwortverzeichnis 


Integer 25, 39, 41 

doppelt genau 73 
vorzeichenlose 180 
Interndarstellung 103 
Interpreter 1 7 


J 

J 82, 140 


K 

Kassettenspeicher 1 2 
Kehrwert 1 93 
Kettungsfeld 297 
KEY 242 

Kommentar 15, 62 

Komplexe Zahl 

Arithmetik 200 
Ausgabe 1 99 
Eingabe 199 
Konkatenation 258 
Konstante 208 
Kontextworterbuch 299 
Kontgrollstruktur , verschachtelte 131 


L 

L 276 

Laufwerksnummer 283 
LEAVE 139, 144 

Leerzeichen 19, 63 

Ausgabe von 100 
nachlaufende 265 
Leerzeile 63 
LEFTS 259 
LEN 266 
Library 16 
LIFO-Prinzip 22 
LIFO-Speicher 22 
Linker 1 6 
LIST 61 , 276 

LITERAL 296 
LOAD 28, 29, 277 
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Stichwortverzeich ms 


LOADS 277 

LOG 1 93 

L0G1 0 1 93 

Logarithmus 193 

Logischer Fehler 30 

LOOP 1 34 

LSB 107 


M 

M* 177 

M*/ 1 79 

M+ 1 78 

M- 178 

M/ 178 

M/MOD 1 78 

MAG 200 

Magnetband 1 2 

Magnetblasenspeicher 1 2 

Mantisse 1 86 

Maschinensprache 1 3 

Maschinenwort 73 

MAX 86 

Maximum 86 

MID$ 259 

MIN 86 

Minimum 86 

Minuszeichen 38 

MOD 42 

Modul 16, 154 

MOVE 242 
MSB 107 

Multiplikation 25, 40 

doppelt genau 1 66 
MYSELF 300 


N 

NCASE 152 
NEGATE 86 
Neuseite 98 
Neuzeile 98 
NOT 152 
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Stichwortverzeichnis 


Notation 

Infix 23 
Postfix 23 


O 

OCTAL 90 

Oktales Zahlensystem 89 
Oktalsystem 90 
Operator, logischer 183 
OR 1 85 
OVER 51 

Overlay-Technik 69 


P 

P-R 200 
PAD 257 
PAGE 98 

Parameter-Stack 77 
PCRT 102, 276 

PHASE 200 
PICK 53 

Polnische Notation, umgekehrte 23 
Postfix-Notation 23 
Potenz 1 93 
Potenzierung 1 94 
PRINT 102 
Programm 1 1 
Progrartmabbruch 150 
Programmbibliothek 16 
Programm fehler 29 
Programmieren 1 1 
Prograrreniersprache , hohere 1 4 
Programmlisting 61 
Programmrumpf 1 56 
Programmschleif e 134 
Geltungsbereich 141 
Index 1 35 
Inkrement 137 
Testwert 135 
verlassen 139, 144 

Programmzweig 127 
Pseudozufallszahl 87, 193 
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Stichwortverzeichnis 


PTC 101 

Puffer 26, 246 

Puffer block , aktueller 275 

Piinktbefehl 25 


2 

^uadratwurzel 1 93 
2UERY 253 
;UIT 98, 128 


R 

R-P 200 
R< > 81 

R> 79, 134 

RADIANS 193, 200 

RANDOMIZE 89 
Realteil 199 
Rechtsbundig 1 06 
Rekursion 300 
REPEAT 147 
Return-Stack 77 
RETURN-Taste 19 
RIGHTS 259 
RN1 88 
RND 88, 193 

ROLL 55 
ROT 54 

Rundungsf ehler 172, 195 


S 

SAVE-BUFFERS 27, 275 

Schleif e 

bedingte 145 
unbedingte 145 
Schleifenindex 135 
Schreibmarke 27 , 101 

SCR 275, 276 

Scratch pad 257 
SEED 88 

Seitenvorschub 98 
Sektor 279, 283 
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Stichwortverzeichnis 


SGN 191 
SIGN 113 
SIN 193 
Skalieren 174 
Skalierungsfaktor 1 74 
Sortierfolge 261 
Sortierwert 261 
SPACE 100 

Speicher, virtueller 69 
Speicherwort 217 
Spur 279 , 283 

SQR 1 93 
Stack 20 
Daten 77 
Parameter 77 
Uberlauf 50 
Stack-Operationen 22 
Stack-Relation 36 
Stackdiagramm 24 
Stackeintrag 

auswahlen 53, 55 

dritter 54 
duplizieren 51 
Stackelement 

duplizieren 48 
entfernen 50 
vertauschen 51 
Stacktiefe 57 
Standardeingabe 251 
Stapel 20 
Stapelspeicher 21 
Steuerzeichen 105 
String 239 

ausgeben 1 1 3 
Lange 266 
Verkettung 258 
Stringarray 255 
Stringkonstante 254 
Stringvariable 255 
Subtraktion 37 

doppelt genau 166 
SWAP 5 1 
Syntax 29 
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Stichwortverzei 


T 

TAN 1 93 
Tastatur 1 2 
Teilstring 260 
Terminal 1 2 
Testdaten 30 
Testwert 135, 136 

Textausgabe 97 
Trenner 63 

Trennzeichen 19, 250 

TYPE 113, 248, 286 


U 

U* 182 
U. 180 
U.R 181 
U/MOD 182 
U< 183 

Umgekehrte Polnische Notation 23 

Umwandlung, String in Zahl 267 

Un terprogr amm 31 

UNTIL 1 46 

UPDATE 274 

Urlader 279 

Ursprungszahl 88 


V 

VAL 267 
Variable 211 

Anfangswert 296 
Vergleich 121 

auf Gleichheit 124 
grofier 1 25 
grdfier Null 123 
groBer/gleich 1 26 
kleiner 124 
kleiner Null 1 23 
kleiner/gleich 126 
mit Null 122 
Ungleichheit 126 
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Stichwortverzeichnis 


Verzweigung 

Auswahl 152 
bedingte 127 
Virtueller Speicher 69 
VOCABULARY 298 
Vokabular 298 
Vorzeichen 

vertauschen 86 
Vorzeichenbit 108, 180 


W 

Wagenrucklauf 98 
WHILE 147 
Winkelgrad 193 
WORD 286 
WORDS 250 
Wort 22 

aufrufen 61 
Definition 59 
Worterbuch 65 
aktuelles 299 
doppelter Eintrag 67 
Eintrag 65, 214 

Kontext 299 
Suche 65 
Variable 214 


X 

XOR 1 85 
X A Y 194 


Y 

Y/N 151 


Z 

Zahl 

ganze 39 
komplexe 199 
negative 38, 108 

Typumwandlung 200 


336 



Stichwortverzeichnis 


Zahlenbasis 90 
Zahleneingabe 98 
Zahlensystem 

hexadeziraales 89 
oktales 89 
Zahlenumwandlung 192 
Zeichen 

alphanumerisches 239 
Bildschirmausgabe 243 
Tastatureingabe 243 
Zeichenket ten 239 
Zeichenstring 1 1 0 
Zeiger 297 
Zeilennummer 61 
Zeilenvorschub 98 
Zentraleinheit 1 1 
Zufallszahl 87, 193 


337 




Der Bnstieg ii 


FORTH — die Sprache fur alle, 
die mehr aus ihrem Computer 
herausholen wollen! 

Wer einen Computer hat, braucht 
nur noch dieses Buch, urn in kur- 
zer Zeit eigene Programme in die- 
ser vielseitigen Sprache schrei- 
ben zu konnen. Dafur sorgt die 
griindliche und methodische 
Methode des Autors, der an einer 


Vielzahl genau erlauterter Bei- 
spiele alles Wichtige erklart. Der 
Leser findet jedoch nicht nur eine 
Einfuhrung in das Programmieren 
mit FORTH; viele andere wichtige 
Themen werden erortert, unter 
anderem 

• Vergleich von FORTH mit 
anderen Sprachen 

• Editieren von Programmen 


• Fehlersuche und -korrektur 

• Diskettenoperationen 

• Zahlentypen 

• Grundlagen des strukturier 
ten Programmierens 

• Der FORTH-Standard 
FORTH-79 und 
Erweiterungen 

• AusfOhrliches Glossar 
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